ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
pm_fftnr::getFFTR Interface Reference

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter. More...

Detailed Description

Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type complex or real of arbitrary kind parameter.

See the documentation of pm_fftnr for more details.

Parameters
[in]data: The input contiguous vector of arbitrary size of,
  1. type complex of kind any supported by the processor (e.g., CK, CK32, CK64, or CK128),
  2. type real of kind any supported by the processor (e.g., RK, RK32, RK64, or RK128),
containing the periodic sequence whose FFT is to be computed.
Returns
fft : The output vector of size getExpNext(size(data), 2) of the same type and kind as the input data, containing the FFT result.


Possible calling interfaces

use pm_fftnr, only: getFFTR
type_of(data) :: fft(1 : getExpNext(size(data)))
fft(:) = getFFTR(data(:))
Generate and return the Reverse (unnormalized) Fourier Transform of a periodic sequence of type compl...
Definition: pm_fftnr.F90:611
This module contains procedures and generic interfaces for computing the Discrete Fourier Transform o...
Definition: pm_fftnr.F90:184
Warning
The condition 1 < size(data) must hold for the corresponding input arguments.
This condition is verified only if the library is built with the preprocessor macro CHECK_ENABLED=1.
Remarks
The procedures under discussion are impure.
Note
This functional generic interface is simply a more flexible but slower wrapper around the subroutine generic interface setFFTR.
As such, this functional interface can be significantly slower than the corresponding subroutine interface.
See also
getFFTF
getFFTR
getFFTI
setFFTF
setFFTR
setFFTI


Example usage

1program example
2
3 use pm_kind, only: SK, IK, LK
4 use pm_io, only: display_type
5 use pm_fftnr, only: getFFTF, getFFTR
6 use pm_distUnif, only: getUnifRand
7 use pm_mathCompare, only: isClose
8 use pm_err, only: setAsserted
9
10 implicit none
11
12 integer(IK) :: i
13 integer(IK) :: lenData
14 type(display_type) :: disp
15 disp = display_type(file = "main.out.F90")
16
17 do i = 1, 5
18 block
19 use pm_kind, only: TKC => CK32
20 real(TKC) :: reltol
21 complex(TKC), allocatable :: data(:), atad(:)
22 call disp%show("lenData = getUnifRand(5, 100)")
23 lenData = getUnifRand(5, 100)
24 call disp%show("lenData")
25 call disp%show( lenData )
26 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
27 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
28 call disp%show("data")
29 call disp%show( data )
30 call disp%skip()
31 call disp%show("atad = getFFTR(getFFTF(data))")
32 atad = getFFTR(getFFTF(data))
33 call disp%show("atad = atad / size(atad)")
34 atad = atad / size(atad)
35 call disp%show("atad")
36 call disp%show( atad )
37 call disp%show("reltol = sqrt(epsilon(1._TKC))")
38 reltol = sqrt(epsilon(1._TKC))
39 call disp%show("reltol")
40 call disp%show( reltol )
41 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
42 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
43 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
44 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
45 call disp%skip()
46 end block
47
48 block
49 use pm_kind, only: TKC => CK64
50 real(TKC) :: reltol
51 complex(TKC), allocatable :: data(:), atad(:)
52 call disp%show("lenData = getUnifRand(5, 100)")
53 lenData = getUnifRand(5, 100)
54 call disp%show("lenData")
55 call disp%show( lenData )
56 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
57 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
58 call disp%show("data")
59 call disp%show( data )
60 call disp%skip()
61 call disp%show("atad = getFFTR(getFFTF(data))")
62 atad = getFFTR(getFFTF(data))
63 call disp%show("atad = atad / size(atad)")
64 atad = atad / size(atad)
65 call disp%show("atad")
66 call disp%show( atad )
67 call disp%show("reltol = sqrt(epsilon(1._TKC))")
68 reltol = sqrt(epsilon(1._TKC))
69 call disp%show("reltol")
70 call disp%show( reltol )
71 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
72 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
73 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
74 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
75 call disp%skip()
76 end block
77
78 block
79 use pm_kind, only: TKC => CKH
80 real(TKC) :: reltol
81 complex(TKC), allocatable :: data(:), atad(:)
82 call disp%show("lenData = getUnifRand(5, 100)")
83 lenData = getUnifRand(5, 100)
84 call disp%show("lenData")
85 call disp%show( lenData )
86 call disp%show("data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)")
87 data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
88 call disp%show("data")
89 call disp%show( data )
90 call disp%skip()
91 call disp%show("atad = getFFTR(getFFTF(data))")
92 atad = getFFTR(getFFTF(data))
93 call disp%show("atad = atad / size(atad)")
94 atad = atad / size(atad)
95 call disp%show("atad")
96 call disp%show( atad )
97 call disp%show("reltol = sqrt(epsilon(1._TKC))")
98 reltol = sqrt(epsilon(1._TKC))
99 call disp%show("reltol")
100 call disp%show( reltol )
101 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
102 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
103 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
104 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
105 call disp%skip()
106 end block
107
108 block
109 use pm_kind, only: TKC => RK32
110 real(TKC) :: reltol
111 real(TKC), allocatable :: data(:), atad(:)
112 call disp%show("lenData = getUnifRand(5, 100)")
113 lenData = getUnifRand(5, 100)
114 call disp%show("lenData")
115 call disp%show( lenData )
116 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
117 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
118 call disp%show("data")
119 call disp%show( data )
120 call disp%skip()
121 call disp%show("atad = getFFTR(getFFTF(data))")
122 atad = getFFTR(getFFTF(data))
123 call disp%show("atad = atad * 2 / size(atad)")
124 atad = atad * 2 / size(atad)
125 call disp%show("atad")
126 call disp%show( atad )
127 call disp%show("reltol = sqrt(epsilon(1._TKC))")
128 reltol = sqrt(epsilon(1._TKC))
129 call disp%show("reltol")
130 call disp%show( reltol )
131 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
132 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
133 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
134 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
135 call disp%skip()
136 end block
137
138 block
139 use pm_kind, only: TKC => RK64
140 real(TKC) :: reltol
141 real(TKC), allocatable :: data(:), atad(:)
142 call disp%show("lenData = getUnifRand(5, 100)")
143 lenData = getUnifRand(5, 100)
144 call disp%show("lenData")
145 call disp%show( lenData )
146 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
147 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
148 call disp%show("data")
149 call disp%show( data )
150 call disp%skip()
151 call disp%show("atad = getFFTR(getFFTF(data))")
152 atad = getFFTR(getFFTF(data))
153 call disp%show("atad = atad * 2 / size(atad)")
154 atad = atad * 2 / size(atad)
155 call disp%show("atad")
156 call disp%show( atad )
157 call disp%show("reltol = sqrt(epsilon(1._TKC))")
158 reltol = sqrt(epsilon(1._TKC))
159 call disp%show("reltol")
160 call disp%show( reltol )
161 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
162 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
163 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
164 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
165 call disp%skip()
166 end block
167
168 block
169 use pm_kind, only: TKC => RKH
170 real(TKC) :: reltol
171 real(TKC), allocatable :: data(:), atad(:)
172 call disp%show("lenData = getUnifRand(5, 100)")
173 lenData = getUnifRand(5, 100)
174 call disp%show("lenData")
175 call disp%show( lenData )
176 call disp%show("data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)")
177 data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
178 call disp%show("data")
179 call disp%show( data )
180 call disp%skip()
181 call disp%show("atad = getFFTR(getFFTF(data))")
182 atad = getFFTR(getFFTF(data))
183 call disp%show("atad = atad * 2 / size(atad)")
184 atad = atad * 2 / size(atad)
185 call disp%show("atad")
186 call disp%show( atad )
187 call disp%show("reltol = sqrt(epsilon(1._TKC))")
188 reltol = sqrt(epsilon(1._TKC))
189 call disp%show("reltol")
190 call disp%show( reltol )
191 call disp%show("isClose(data, atad(1:size(data)), reltol = reltol)")
192 call disp%show( isClose(data, atad(1:size(data)), reltol = reltol) )
193 call disp%show("call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))")
194 call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
195 call disp%skip()
196 end block
197 end do
198
199end program example
Generate and return a scalar or a contiguous array of rank 1 of length s1 of randomly uniformly distr...
Verify the input assertion holds and if it does not, print the (optional) input message on stdout and...
Definition: pm_err.F90:735
Generate and return an object of type stop_type with the user-specified input attributes.
Definition: pm_err.F90:1617
Generate and return the Forward Fourier Transform (a.k.a. Fourier Analysis) of a periodic sequence of...
Definition: pm_fftnr.F90:250
This is a generic method of the derived type display_type with pass attribute.
Definition: pm_io.F90:11074
Generate and return .true. if the two input values are sufficiently close to each other within the sp...
This module contains classes and procedures for computing various statistical quantities related to t...
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:10962
This module defines the relevant Fortran kind type-parameters frequently used in the ParaMonte librar...
Definition: pm_kind.F90:28
integer, parameter LK
The default logical kind in the ParaMonte library: kind(.true.) in Fortran, kind(....
Definition: pm_kind.F90:281
integer, parameter CKH
The scalar integer constant of intrinsic default kind, representing the highest-precision complex kin...
Definition: pm_kind.F90:477
integer, parameter RK32
The real kind for a 32-bits container.
Definition: pm_kind.F90:294
integer, parameter CK64
The complex kind for a 64-bits container.
Definition: pm_kind.F90:290
integer, parameter CK32
The complex kind for a 32-bits container.
Definition: pm_kind.F90:291
integer, parameter RK64
The real kind for a 64-bits container.
Definition: pm_kind.F90:293
integer, parameter IK
The default integer kind in the ParaMonte library: int32 in Fortran, c_int32_t in C-Fortran Interoper...
Definition: pm_kind.F90:280
integer, parameter SK
The default character kind in the ParaMonte library: kind("a") in Fortran, c_char in C-Fortran Intero...
Definition: pm_kind.F90:279
integer, parameter RKH
The scalar integer constant of intrinsic default kind, representing the highest-precision real kind a...
Definition: pm_kind.F90:462
This module contains the procedures and interfaces for evaluating the relative or absolute proximity ...
Generate and return an object of type display_type.
Definition: pm_io.F90:10228

Example Unix compile command via Intel ifort compiler
1#!/usr/bin/env sh
2rm main.exe
3ifort -fpp -standard-semantics -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_intel* -o main.exe
4./main.exe

Example Windows Batch compile command via Intel ifort compiler
1del main.exe
2set PATH=..\..\..\lib;%PATH%
3ifort /fpp /standard-semantics /O3 /I:..\..\..\include main.F90 ..\..\..\lib\libparamonte_fortran_*_intel*.lib /exe:main.exe
4main.exe

Example Unix / MinGW compile command via GNU gfortran compiler
1#!/usr/bin/env sh
2rm main.exe
3gfortran -cpp -ffree-line-length-none -O3 -Wl,-rpath,../../../lib -I../../../inc main.F90 ../../../lib/libparamonte_fortran_*_gnu* -o main.exe
4./main.exe

Example output
1lenData = getUnifRand(5, 100)
2lenData
3+71
4data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
5data
6(+1.30476999, +0.645150006), (+1.90549064, +0.531113863), (+1.75642979, +0.792004168), (+1.00377202, +0.224383473), (+1.60933983, +0.281731188), (+1.40116966, +0.781753063), (+1.01137745, +0.232261837), (+1.44788480, +0.420858800), (+1.11127615, +0.668619156), (+1.42991340, +0.713583469), (+1.60879433, +0.195910931E-1), (+1.45359409, +0.534037411), (+1.57803643, +0.672746003), (+1.60227025, +0.334034085), (+1.26583111, +0.563595891), (+1.49341249, +0.395606160E-1), (+1.49086046, +0.604255557), (+1.87534118, +0.731075585), (+1.24934149, +0.984565318), (+1.06331587, +0.926143587), (+1.92714751, +0.430359125), (+1.32499695, +0.765780449), (+1.31537938, +0.384430468), (+1.38410282, +0.627619863), (+1.91692650, +0.888185143), (+1.86716914, +0.104350269), (+1.70983005, +0.783059061), (+1.84589016, +0.542856336), (+1.02341044, +0.394147813), (+1.75647545, +0.256648779), (+1.11159301, +0.607288420), (+1.12071800, +0.282542109), (+1.14239705, +0.343441665), (+1.83604598, +0.855803132), (+1.68322945, +0.445960760E-1), (+1.21407914, +0.135182619), (+1.48650217, +0.241357684E-1), (+1.56363583, +0.529808521), (+1.94885039, +0.976733506), (+1.35552859, +0.864598274), (+1.71447718, +0.819698572), (+1.79271770, +0.271428704), (+1.54463363, +0.601959169), (+1.28648663, +0.779679954), (+1.66586459, +0.213627160), (+1.08889389, +0.549068272), (+1.44058943, +0.391455293), (+1.32662535, +0.132088065), (+1.69438422, +0.858442247), (+1.36731994, +0.745976686), (+1.38477707, +0.128515363E-1), (+1.60356021, +0.362526834), (+1.76909351, +0.148728848), (+1.68002510, +0.627824247), (+1.94017971, +0.922838211), (+1.81292093, +0.577002764E-2), (+1.11243117, +0.787452340), (+1.06048894, +0.380688906E-2), (+1.11479330, +0.384058118), (+1.23119807, +0.976277590E-1), (+1.23351991, +0.223597884E-1), (+1.49787021, +0.370038509), (+1.84346843, +0.895399451E-1), (+1.10862613, +0.854178667), (+1.68207526, +0.770018637), (+1.81459427, +0.782524705), (+1.52690387, +0.905092955), (+1.70162821, +0.289148808), (+1.24795353, +0.695483208), (+1.70259023, +0.595284104), (+1.20631766, +0.936329901)
7
8atad = getFFTR(getFFTF(data))
9atad = atad / size(atad)
10atad
11(+1.30477011, +0.645150065), (+1.90549076, +0.531114042), (+1.75642955, +0.792004108), (+1.00377190, +0.224383414), (+1.60933971, +0.281731069), (+1.40116954, +0.781753004), (+1.01137745, +0.232261837), (+1.44788456, +0.420858741), (+1.11127627, +0.668619037), (+1.42991352, +0.713583589), (+1.60879421, +0.195911974E-1), (+1.45359421, +0.534037471), (+1.57803655, +0.672746181), (+1.60227036, +0.334034175), (+1.26583099, +0.563595772), (+1.49341249, +0.395604745E-1), (+1.49086046, +0.604255557), (+1.87534106, +0.731075764), (+1.24934137, +0.984565258), (+1.06331587, +0.926143408), (+1.92714739, +0.430359125), (+1.32499695, +0.765780449), (+1.31537914, +0.384430498), (+1.38410294, +0.627619743), (+1.91692638, +0.888185382), (+1.86716914, +0.104350463), (+1.70982981, +0.783059239), (+1.84589028, +0.542856574), (+1.02341056, +0.394147933), (+1.75647545, +0.256649017), (+1.11159277, +0.607288301), (+1.12071824, +0.282542199), (+1.14239717, +0.343441606), (+1.83604598, +0.855803072), (+1.68322921, +0.445959494E-1), (+1.21407914, +0.135182381), (+1.48650217, +0.241355449E-1), (+1.56363595, +0.529808283), (+1.94885039, +0.976732969), (+1.35552883, +0.864597917), (+1.71447682, +0.819698751), (+1.79271770, +0.271428674), (+1.54463351, +0.601959109), (+1.28648663, +0.779679775), (+1.66586447, +0.213627115), (+1.08889389, +0.549068093), (+1.44058919, +0.391455114), (+1.32662535, +0.132088184), (+1.69438410, +0.858442128), (+1.36731982, +0.745976567), (+1.38477695, +0.128513575E-1), (+1.60356009, +0.362526655), (+1.76909351, +0.148728609), (+1.68002498, +0.627823949), (+1.94017959, +0.922837853), (+1.81292081, +0.576977432E-2), (+1.11243093, +0.787452340), (+1.06048882, +0.380681455E-2), (+1.11479318, +0.384057939), (+1.23119795, +0.976275355E-1), (+1.23351991, +0.223597363E-1), (+1.49786997, +0.370038450), (+1.84346819, +0.895400196E-1), (+1.10862613, +0.854178548), (+1.68207538, +0.770018697), (+1.81459415, +0.782524526), (+1.52690399, +0.905092597), (+1.70162833, +0.289148629), (+1.24795389, +0.695483208), (+1.70259023, +0.595284164), (+1.20631826, +0.936329663), (+0.357627869E-6, +0.596046448E-7), (-0.119209290E-6, +0.00000000), (-0.119209290E-6, -0.119209290E-6), (+0.238418579E-6, -0.149011612E-7), (+0.178813934E-6, -0.149011612E-6), (+0.178813934E-6, +0.298023224E-7), (-0.596046448E-7, -0.298023224E-7), (+0.596046448E-7, +0.238418579E-6), (+0.596046448E-7, +0.353902578E-7), (+0.119209290E-6, +0.00000000), (+0.00000000, -0.894069672E-7), (+0.119209290E-6, +0.298023224E-7), (+0.178813934E-6, +0.894069672E-7), (+0.596046448E-7, +0.00000000), (+0.00000000, -0.894069672E-7), (+0.417232513E-6, -0.298023224E-7), (+0.238418579E-6, -0.298023224E-7), (+0.119209290E-6, -0.208616257E-6), (-0.596046448E-7, -0.253319740E-6), (-0.596046448E-7, -0.298023224E-7), (+0.596046448E-7, -0.208616257E-6), (+0.119209290E-6, -0.745058060E-7), (+0.119209290E-6, -0.104308128E-6), (+0.238418579E-6, -0.596046448E-7), (+0.596046448E-7, -0.596046448E-7), (+0.238418579E-6, +0.745058060E-7), (+0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.365078449E-6), (-0.596046448E-7, +0.141561031E-6), (+0.596046448E-7, +0.223517418E-6), (-0.119209290E-6, +0.119209290E-6), (+0.298023224E-6, +0.298023224E-6), (+0.119209290E-6, +0.178813934E-6), (+0.178813934E-6, -0.596046448E-7), (+0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, +0.149011612E-6), (+0.119209290E-6, +0.894069672E-7), (+0.596046448E-7, +0.745058060E-7), (-0.596046448E-7, +0.298023224E-7), (+0.00000000, +0.238418579E-6), (+0.596046448E-7, +0.521540642E-7), (+0.178813934E-6, +0.178813934E-6), (+0.178813934E-6, +0.298023224E-7), (+0.119209290E-6, +0.357627869E-6), (+0.238418579E-6, +0.119209290E-6), (+0.178813934E-6, +0.126659870E-6), (+0.119209290E-6, +0.208616257E-6), (+0.119209290E-6, +0.208616257E-6), (+0.298023224E-6, +0.163912773E-6), (+0.476837158E-6, +0.00000000), (+0.357627869E-6, -0.745058060E-7), (+0.119209290E-6, +0.119209290E-6), (+0.357627869E-6, +0.163912773E-6), (+0.238418579E-6, +0.819563866E-7), (+0.417232513E-6, +0.149011612E-7), (-0.596046448E-7, +0.137835741E-6), (+0.178813934E-6, +0.298023224E-7)
12reltol = sqrt(epsilon(1._TKC))
13reltol
14+0.345266977E-3
15isClose(data, atad(1:size(data)), reltol = reltol)
16T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
17call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
18
19lenData = getUnifRand(5, 100)
20lenData
21+81
22data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
23data
24(+1.0619534843797618, +0.85926781135031727), (+1.7031716474389986, +0.17641080145992527E-1), (+1.8498688175343521, +0.86713176683728743), (+1.6609999069979278, +0.98838776221891900), (+1.6844176988423694, +0.15957334290042025), (+1.8336751301287713, +0.39302096951070453), (+1.6514499554964526, +0.59145976103582465), (+1.0490251416164862, +0.84480053520681631), (+1.2173375884867643, +0.40053281366627225), (+1.2656709408173654, +0.62484257713664515), (+1.5879750885965573, +0.59264878367262308), (+1.2497985739320909, +0.40948376129926989), (+1.5719902865935418, +0.77509892380045531), (+1.6505441398520619, +0.76185684212305504), (+1.5757281889830295, +0.42562925049329015), (+1.9922885747765844, +0.91194899491654935E-1), (+1.0905451832105544, +0.69836560552360316E-1), (+1.6151982948049453, +0.93061638945489733), (+1.9809010895349815, +0.14577869337770677), (+1.2573569157401061, +0.66601657013348514), (+1.9818118829721005, +0.43940101901169482), (+1.3592487319764097, +0.46692726770452486), (+1.2052544952915516, +0.17481301584039277), (+1.4018039063293863, +0.91303022258705757), (+1.7234783458335401, +0.63193404126668684), (+1.9920848409971716, +0.53535124597356976), (+1.8795933397895981, +0.33474842309656339), (+1.9312782714938117, +0.94106338567366599), (+1.6957836990148261, +0.92990487903307772E-1), (+1.0020544170477472, +0.18563974698933894), (+1.4265347695736230, +0.13863806628121200), (+1.7466457408302165, +0.71227861828202954E-1), (+1.5676479018198299, +0.37121458859494316), (+1.1398055669122749, +0.87376231114429115), (+1.9108938286847161, +0.58074194869708362), (+1.2268768455995804, +0.24297848906937269), (+1.3048069132458822, +0.28404238619705791), (+1.6929729251351269, +0.31795027644469132), (+1.2443613963440017, +0.62146296664931444), (+1.8484506660412974, +0.86993558136509797), (+1.2695746203279672, +0.62501623219383273), (+1.7542411614532327, +0.64563595438777410), (+1.4529925556658012, +0.90400994916122390), (+1.6343900960494819, +0.84440078736660151E-1), (+1.1644855415861279, +0.39459779986659305), (+1.3686451035607248, +0.69778212918024551), (+1.9569101608685895, +0.49466811181649439), (+1.9074704048128788, +0.82672132325493752), (+1.1001549657198719, +0.52540275404339143E-1), (+1.1746757888019095, +0.63778941050082194), (+1.3439535362552735, +0.58998821246252164), (+1.5716514214542157, +0.87784530284375772), (+1.0579058485334274, +0.82226030596861721), (+1.5714255877285250, +0.35960066563921556), (+1.9967984152546934, +0.53977106069882319), (+1.3076933126589352, +0.52411557802699171), (+1.1603193829512053, +0.69436687720128032), (+1.0872863551188408, +0.15661104276949389), (+1.1760960123258042, +0.41916354353086371), (+1.1960878846384431, +0.79513887540520423), (+1.2436791700766154, +0.13296746560059158), (+1.2154054415368347, +0.59401046734879692), (+1.4096091900437016, +0.77199263435483279), (+1.6926195141184728, +0.57966668099105012), (+1.4120559639345003, +0.32843886744584516), (+1.8243976723550572, +0.97339454826904959), (+1.7811452956017364, +0.90691087719306451E-1), (+1.5893182806906010, +0.76045310006201261), (+1.5911305100477147, +0.33827905949100900), (+1.2699904002733833, +0.98545592342912458), (+1.0426762391628746, +0.76644682184054636), (+1.3481378632145087, +0.21951146204421046), (+1.5423214356716981, +0.12304619409559381), (+1.9147479393651006, +0.20591823487985506), (+1.1915757018188340, +0.72321808437037993), (+1.5519537618334853, +0.17218180405807293), (+1.8806949467592302, +0.42861228465876322), (+1.2134196858907165, +0.44154633211414096), (+1.3891687393612449, +0.49352376688784116), (+1.0622206019377882, +0.98149522217725882), (+1.3356708272878386, +0.24075221222598497)
25
26atad = getFFTR(getFFTF(data))
27atad = atad / size(atad)
28atad
29(+1.0619534843797618, +0.85926781135031716), (+1.7031716474389988, +0.17641080145992971E-1), (+1.8498688175343525, +0.86713176683728777), (+1.6609999069979278, +0.98838776221891966), (+1.6844176988423691, +0.15957334290042019), (+1.8336751301287708, +0.39302096951070464), (+1.6514499554964521, +0.59145976103582498), (+1.0490251416164862, +0.84480053520681664), (+1.2173375884867645, +0.40053281366627241), (+1.2656709408173656, +0.62484257713664548), (+1.5879750885965578, +0.59264878367262341), (+1.2497985739320912, +0.40948376129927055), (+1.5719902865935416, +0.77509892380045531), (+1.6505441398520617, +0.76185684212305527), (+1.5757281889830297, +0.42562925049329042), (+1.9922885747765839, +0.91194899491655823E-1), (+1.0905451832105544, +0.69836560552360274E-1), (+1.6151982948049450, +0.93061638945489755), (+1.9809010895349815, +0.14577869337770699), (+1.2573569157401059, +0.66601657013348536), (+1.9818118829721001, +0.43940101901169454), (+1.3592487319764093, +0.46692726770452503), (+1.2052544952915514, +0.17481301584039272), (+1.4018039063293859, +0.91303022258705757), (+1.7234783458335401, +0.63193404126668717), (+1.9920848409971712, +0.53535124597356998), (+1.8795933397895981, +0.33474842309656366), (+1.9312782714938113, +0.94106338567366610), (+1.6957836990148256, +0.92990487903307689E-1), (+1.0020544170477470, +0.18563974698933905), (+1.4265347695736228, +0.13863806628121186), (+1.7466457408302158, +0.71227861828203509E-1), (+1.5676479018198297, +0.37121458859494305), (+1.1398055669122746, +0.87376231114429126), (+1.9108938286847166, +0.58074194869708329), (+1.2268768455995804, +0.24297848906937253), (+1.3048069132458819, +0.28404238619705768), (+1.6929729251351264, +0.31795027644469132), (+1.2443613963440017, +0.62146296664931400), (+1.8484506660412974, +0.86993558136509763), (+1.2695746203279672, +0.62501623219383251), (+1.7542411614532325, +0.64563595438777410), (+1.4529925556658012, +0.90400994916122390), (+1.6343900960494815, +0.84440078736660026E-1), (+1.1644855415861277, +0.39459779986659249), (+1.3686451035607243, +0.69778212918024551), (+1.9569101608685893, +0.49466811181649395), (+1.9074704048128781, +0.82672132325493752), (+1.1001549657198719, +0.52540275404338907E-1), (+1.1746757888019093, +0.63778941050082183), (+1.3439535362552739, +0.58998821246252120), (+1.5716514214542157, +0.87784530284375739), (+1.0579058485334274, +0.82226030596861677), (+1.5714255877285246, +0.35960066563921533), (+1.9967984152546931, +0.53977106069882241), (+1.3076933126589350, +0.52411557802699127), (+1.1603193829512055, +0.69436687720127988), (+1.0872863551188403, +0.15661104276949372), (+1.1760960123258042, +0.41916354353086360), (+1.1960878846384428, +0.79513887540520400), (+1.2436791700766154, +0.13296746560059136), (+1.2154054415368347, +0.59401046734879648), (+1.4096091900437018, +0.77199263435483201), (+1.6926195141184721, +0.57966668099104968), (+1.4120559639345001, +0.32843886744584511), (+1.8243976723550570, +0.97339454826904959), (+1.7811452956017368, +0.90691087719306063E-1), (+1.5893182806906010, +0.76045310006201250), (+1.5911305100477144, +0.33827905949100889), (+1.2699904002733828, +0.98545592342912458), (+1.0426762391628746, +0.76644682184054602), (+1.3481378632145089, +0.21951146204421002), (+1.5423214356716983, +0.12304619409559364), (+1.9147479393651003, +0.20591823487985531), (+1.1915757018188340, +0.72321808437037982), (+1.5519537618334851, +0.17218180405807279), (+1.8806949467592300, +0.42861228465876272), (+1.2134196858907165, +0.44154633211414074), (+1.3891687393612451, +0.49352376688784066), (+1.0622206019377876, +0.98149522217725793), (+1.3356708272878386, +0.24075221222598481), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.77715611723760958E-15, -0.22204460492503131E-15), (+0.22204460492503131E-15, -0.44408920985006262E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.33306690738754696E-15, +0.15265566588595902E-15), (+0.77715611723760958E-15, -0.11102230246251565E-15), (+0.11102230246251565E-15, -0.27755575615628914E-15), (+0.44408920985006262E-15, -0.33306690738754696E-15), (-0.11102230246251565E-15, -0.38857805861880479E-15), (+0.11102230246251565E-15, -0.38857805861880479E-15), (+0.11102230246251565E-15, -0.48572257327350599E-16), (+0.44408920985006262E-15, -0.34694469519536142E-15), (+0.33306690738754696E-15, +0.83266726846886741E-16), (+0.55511151231257827E-15, -0.43715031594615539E-15), (-0.22204460492503131E-15, +0.24980018054066022E-15), (-0.22204460492503131E-15, -0.11102230246251565E-15), (-0.11102230246251565E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, -0.55511151231257827E-16), (-0.22204460492503131E-15, +0.38857805861880479E-15), (+0.11102230246251565E-15, +0.13877787807814457E-15), (-0.22204460492503131E-15, +0.55511151231257827E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.0000000000000000, +0.11102230246251565E-15), (-0.11102230246251565E-15, -0.11102230246251565E-15), (-0.22204460492503131E-15, -0.55511151231257827E-16), (-0.11102230246251565E-15, +0.97144514654701197E-16), (+0.0000000000000000, +0.24980018054066022E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.33306690738754696E-15, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.16653345369377348E-15), (+0.0000000000000000, +0.97144514654701197E-16), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.55511151231257827E-15), (+0.11102230246251565E-15, +0.61062266354383610E-15), (-0.11102230246251565E-15, +0.33306690738754696E-15), (+0.33306690738754696E-15, +0.47184478546569153E-15), (-0.22204460492503131E-15, +0.88817841970012523E-15), (+0.22204460492503131E-15, +0.61062266354383610E-15), (+0.22204460492503131E-15, +0.55511151231257827E-16), (+0.44408920985006262E-15, +0.23592239273284576E-15), (+0.44408920985006262E-15, +0.19428902930940239E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (+0.0000000000000000, +0.55511151231257827E-15), (+0.22204460492503131E-15, +0.77715611723760958E-15), (-0.22204460492503131E-15, +0.66613381477509392E-15), (+0.88817841970012523E-15, +0.88817841970012523E-15)
30reltol = sqrt(epsilon(1._TKC))
31reltol
32+0.14901161193847656E-7
33isClose(data, atad(1:size(data)), reltol = reltol)
34T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
35call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
36
37lenData = getUnifRand(5, 100)
38lenData
39+97
40data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
41data
42(+1.38478889881669679973730751813372151, +0.423746001969702556808669229807269219), (+1.73754351238329279129381151062583439, +0.287823653597082179335341378642695120), (+1.21055131047443291301374925591400859, +0.589172563217512051590821861218007813), (+1.70163593745950512416193629562024741, +0.411855571427745191592746690307326294), (+1.84036009126370161862518022547406623, +0.960492293149691036466117268858524892), (+1.91542737614355264009999903368552143, +0.299210808803122150475137413862708194), (+1.47171886399063767920550524235207195, +0.779851121588168235069814984910578937), (+1.05797229202049750409448402426409985, +0.857419771033289861394875043359819536), (+1.73386609271216351715292835136173461, +0.216543902153931405488429398298034941), (+1.15828264654201453352667705118649096, +0.959190563766072048866569325576658602), (+1.62434219763783825649716120547293192, +0.851774316717254096892151680182725330), (+1.38316364443120307932828837265850110, +0.179892995621923941090577131124869315), (+1.65545573190188049540057598868927923, +0.346665924592744265836697469135975338), (+1.90111217210641472229186756039157755, +0.939774706421097357550168526022160065), (+1.92108383282676925528996552787478000, +0.285557612009734193958701634455634833), (+1.33708866352496467681207627793162492, +0.480850732277495909363698370213182252), (+1.27288817515420323358803339477377176, +0.271433135592035363817606568652506367), (+1.60980951345059353238213845162711401, +0.443879416660807785463231356053873863), (+1.82609688594286206211805770811057928, +0.181603877881364468585661139232532090), (+1.17911185301337687669950956504320251, +0.357058723534477370918839660257042252), (+1.23700750253120750732067783034800994, +0.367792237526902281362952582654865159), (+1.81531230708844837274222377932339189, +0.762787143348215594170908773221195550), (+1.12806864903619038852426659241768998, +0.699849689319261217542903024655142798E-1), (+1.29810949796002816186048991526975815, +0.806079133635395871903058670916628580), (+1.97076812157815193128718567671190922, +0.282028845346277425859957631288016520E-1), (+1.23391895576836946641929314357475510, +0.823794692369398661275280637990960759), (+1.31395624425626417139017227025060067, +0.764004970404027552072595922856749120), (+1.09078055264075096954567686430065269, +0.974038952893361609759129704930608509), (+1.00905375505442612205194239210797454, +0.153805284980426516825276916472620627), (+1.63692747980405694273507609469658146, +0.185927658559320283673063515697816355), (+1.03657559956508758545898609374037644, +0.901907013158811443072761571968469798), (+1.58402402409956406964045166675967062, +0.387712307956753097343296052869726913), (+1.81064893042616995143640054092098610, +0.257771752184336774020627169930341264), (+1.43872012138591415984356101790641648, +0.918634291166367012090292993502017949), (+1.11581090010094327332297345279284276, +0.749328312875906278205841703313657343), (+1.32991333444405085574590468556577718, +0.307018053379017764910410949763790136), (+1.20919361768532297966375208422302773, +0.680189145695409996164211419064178272), (+1.70729620569129818352193854067276815, +0.622588233221887169107631353234561532), (+1.00011777445789364574870244515287164, +0.333105532164103555064651435670488975), (+1.58607154800528767765274584857437805, +0.739407317045146946764927707007144846), (+1.37028153038242734584672916727664399, +0.217886703412228296797494362077598726), (+1.98839897804418445604704591693572503, +0.762992532261367060982082227624668241), (+1.84995885389648185636964500099340055, +0.753549159543512361193542421814770241), (+1.17904594453539145007927850320654586, +0.591541668478018902393375163996609579), (+1.41128331545190382511062061171677642, +0.743649746695659138902622473735111124), (+1.64422375677316757912989679606479689, +0.669900041222245795985029691727096694), (+1.41700957748137052519655488562737528, +0.499731248163992652798062133097922331), (+1.02206252508069103589502402231123561, +0.946663129635370709955212433798960134), (+1.74153967015718607799768650051683589, +0.926902393822396832443900798682660429), (+1.77318446953069148217077542025722538, +0.670097438103176814149313421640234938), (+1.93426114117975818068576684252687509, +0.953640151298470315025174565596943217), (+1.05587090057602414443441302579274286, +0.569536955972328151419860845507418015), (+1.33167983404997982775402478593210328, +0.315198221780678629348886976262941527E-2), (+1.53570978823660168349779412265340952, +0.271739918371521504172170970354782344), (+1.03513606796556825366579260841496403, +0.380479930669507391831332371229882430), (+1.90061866594573351242210249132082287, +0.262293657596517857867822084004526038), (+1.48743839251647048319155798327215487, +0.764655836200688834484882637606527946), (+1.63098183917301351336208485878233606, +0.251185404204181238988061002476157922), (+1.39546367423446822102022421748377575, +0.389225728597920104729970093069777937), (+1.54721959840325546754065479914923895, +0.345675536891992475430279753570490252), (+1.89275509091573886147732662103554409, +0.690598424879323078195962235522884155), (+1.55742664838490312912351916041227901, +0.247320908940560063830389806835452953E-1), (+1.09157256658159375687411998627929516, +0.497638483877970331901632701956136570), (+1.14618315919351205277202027891314925, +0.536274954560326084617804046248344398), (+1.33634464751421834739054243495926832, +0.574343805284887572200113731605783797), (+1.47886533389538593693939291803157589, +0.134973197684096802743602689216528684), (+1.01331396284166296880664827510690864, +0.303952962841525672346929891933408247), (+1.94587344014328980475629837096215876, +0.928446229660055032638297824687380226), (+1.72580131107406503150543301761956259, +0.160869567903498723890725373524693196), (+1.80420165372657241520578993674595480, +0.443158229849696035522513028090720019E-1), (+1.35064178224648412420133826785272738, +0.984641993347802174832649470027773121), (+1.24508747659752505889868707759091028, +0.118788586513231781549673866137535852), (+1.49364476153427919791631570047290227, +0.601770905922167596480330962959946830), (+1.81967276572470789387562054918331383, +0.558143007873687366563206084671110823), (+1.36729403846208113250961436806490937, +0.797985759191053026432655120092535673), (+1.98328968677363477334615370132032034, +0.587656030338076958595680034385147156), (+1.51882577202124231664603529605075954, +0.426109636186338871900561016192657419), (+1.79706604754659581164867526421773873, +0.279247864627364124364014372156474114), (+1.39748131420190466061263460296770624, +0.485191159700080633461500142360597345), (+1.50173593439631749333450165388019930, +0.845348000859387500278977473812348329E-1), (+1.04316177631004874900260232907801957, +0.897677234732471434231297721539161942), (+1.14742505958290317439322094704865356, +0.798958411176048260904327292243709339E-1), (+1.64653736843563089130455373309544790, +0.289192017781922784000693706429427608), (+1.94104667563034017103288432129107387, +0.488320402915910635854074998931466133), (+1.59245209002730921590283310864559095, +0.399229487050702206495313297592631697), (+1.67898361228761287032587279887139002, +0.147468551097684643603360320057210135E-1), (+1.08952309030437310700962131331417549, +0.886820600707612030229207426679563040), (+1.78514328092864850094309985940895379, +0.708729472728622297069299024215627809), (+1.03630979229503340660588283188871591, +0.747276876748174244359580762085849714), (+1.47418977274218911667450251401952791, +0.208581707063248839930423784932649720E-1), (+1.78231285582690237966358732053185512, +0.301312911744339586316621590574413882), (+1.03098424356075282342702400604973753, +0.797711486627722362209314788520522014), (+1.28593558647437834808154199616209261, +0.637375191498855930693814993668753506), (+1.51773294467039966166898616300502199, +0.901444154281672739852505058104973989), (+1.25338509980622330713230519759570103, +0.511691993310088435496925458022379702), (+1.43635121998852117112310085143796064, +0.818936935712148661423623845127620792), (+1.07659061541098792871830132783293775, +0.236884118688850651649657232641655082)
43
44atad = getFFTR(getFFTF(data))
45atad = atad / size(atad)
46atad
47(+1.38478889881669679973730751813372112, +0.423746001969702556808669229807269411), (+1.73754351238329279129381151062583439, +0.287823653597082179335341378642694928), (+1.21055131047443291301374925591400840, +0.589172563217512051590821861218007813), (+1.70163593745950512416193629562024761, +0.411855571427745191592746690307326101), (+1.84036009126370161862518022547406604, +0.960492293149691036466117268858524989), (+1.91542737614355264009999903368552124, +0.299210808803122150475137413862707857), (+1.47171886399063767920550524235207195, +0.779851121588168235069814984910578841), (+1.05797229202049750409448402426410005, +0.857419771033289861394875043359819343), (+1.73386609271216351715292835136173461, +0.216543902153931405488429398298034941), (+1.15828264654201453352667705118649096, +0.959190563766072048866569325576658794), (+1.62434219763783825649716120547293153, +0.851774316717254096892151680182725522), (+1.38316364443120307932828837265850149, +0.179892995621923941090577131124869122), (+1.65545573190188049540057598868927923, +0.346665924592744265836697469135975578), (+1.90111217210641472229186756039157793, +0.939774706421097357550168526022160162), (+1.92108383282676925528996552787478039, +0.285557612009734193958701634455634881), (+1.33708866352496467681207627793162511, +0.480850732277495909363698370213182301), (+1.27288817515420323358803339477377138, +0.271433135592035363817606568652506415), (+1.60980951345059353238213845162711421, +0.443879416660807785463231356053873863), (+1.82609688594286206211805770811057928, +0.181603877881364468585661139232532042), (+1.17911185301337687669950956504320251, +0.357058723534477370918839660257042059), (+1.23700750253120750732067783034800955, +0.367792237526902281362952582654865255), (+1.81531230708844837274222377932339189, +0.762787143348215594170908773221195454), (+1.12806864903619038852426659241768998, +0.699849689319261217542903024655138946E-1), (+1.29810949796002816186048991526975873, +0.806079133635395871903058670916628388), (+1.97076812157815193128718567671190903, +0.282028845346277425859957631288017002E-1), (+1.23391895576836946641929314357475510, +0.823794692369398661275280637990960759), (+1.31395624425626417139017227025060047, +0.764004970404027552072595922856749023), (+1.09078055264075096954567686430065269, +0.974038952893361609759129704930608701), (+1.00905375505442612205194239210797454, +0.153805284980426516825276916472620723), (+1.63692747980405694273507609469658146, +0.185927658559320283673063515697816066), (+1.03657559956508758545898609374037664, +0.901907013158811443072761571968469605), (+1.58402402409956406964045166675967023, +0.387712307956753097343296052869726720), (+1.81064893042616995143640054092098591, +0.257771752184336774020627169930341361), (+1.43872012138591415984356101790641667, +0.918634291166367012090292993502018142), (+1.11581090010094327332297345279284257, +0.749328312875906278205841703313657246), (+1.32991333444405085574590468556577737, +0.307018053379017764910410949763790088), (+1.20919361768532297966375208422302753, +0.680189145695409996164211419064178368), (+1.70729620569129818352193854067276853, +0.622588233221887169107631353234561436), (+1.00011777445789364574870244515287202, +0.333105532164103555064651435670488927), (+1.58607154800528767765274584857437844, +0.739407317045146946764927707007144942), (+1.37028153038242734584672916727664380, +0.217886703412228296797494362077598822), (+1.98839897804418445604704591693572561, +0.762992532261367060982082227624668627), (+1.84995885389648185636964500099340055, +0.753549159543512361193542421814770337), (+1.17904594453539145007927850320654625, +0.591541668478018902393375163996609386), (+1.41128331545190382511062061171677622, +0.743649746695659138902622473735111412), (+1.64422375677316757912989679606479727, +0.669900041222245795985029691727096983), (+1.41700957748137052519655488562737567, +0.499731248163992652798062133097922331), (+1.02206252508069103589502402231123561, +0.946663129635370709955212433798960520), (+1.74153967015718607799768650051683550, +0.926902393822396832443900798682660429), (+1.77318446953069148217077542025722577, +0.670097438103176814149313421640235131), (+1.93426114117975818068576684252687548, +0.953640151298470315025174565596943313), (+1.05587090057602414443441302579274286, +0.569536955972328151419860845507418208), (+1.33167983404997982775402478593210309, +0.315198221780678629348886976262934304E-2), (+1.53570978823660168349779412265340971, +0.271739918371521504172170970354782344), (+1.03513606796556825366579260841496422, +0.380479930669507391831332371229882526), (+1.90061866594573351242210249132082326, +0.262293657596517857867822084004526086), (+1.48743839251647048319155798327215467, +0.764655836200688834484882637606528234), (+1.63098183917301351336208485878233644, +0.251185404204181238988061002476158114), (+1.39546367423446822102022421748377594, +0.389225728597920104729970093069777985), (+1.54721959840325546754065479914923933, +0.345675536891992475430279753570490252), (+1.89275509091573886147732662103554409, +0.690598424879323078195962235522884348), (+1.55742664838490312912351916041227939, +0.247320908940560063830389806835453073E-1), (+1.09157256658159375687411998627929555, +0.497638483877970331901632701956136667), (+1.14618315919351205277202027891314925, +0.536274954560326084617804046248344494), (+1.33634464751421834739054243495926794, +0.574343805284887572200113731605783797), (+1.47886533389538593693939291803157570, +0.134973197684096802743602689216528563), (+1.01331396284166296880664827510690845, +0.303952962841525672346929891933408102), (+1.94587344014328980475629837096215915, +0.928446229660055032638297824687380322), (+1.72580131107406503150543301761956240, +0.160869567903498723890725373524692956), (+1.80420165372657241520578993674595480, +0.443158229849696035522513028090717612E-1), (+1.35064178224648412420133826785272738, +0.984641993347802174832649470027773217), (+1.24508747659752505889868707759091048, +0.118788586513231781549673866137535611), (+1.49364476153427919791631570047290189, +0.601770905922167596480330962959947022), (+1.81967276572470789387562054918331383, +0.558143007873687366563206084671110727), (+1.36729403846208113250961436806490899, +0.797985759191053026432655120092535673), (+1.98328968677363477334615370132032073, +0.587656030338076958595680034385147637), (+1.51882577202124231664603529605075916, +0.426109636186338871900561016192657371), (+1.79706604754659581164867526421773912, +0.279247864627364124364014372156474210), (+1.39748131420190466061263460296770643, +0.485191159700080633461500142360597490), (+1.50173593439631749333450165388019930, +0.845348000859387500278977473812348811E-1), (+1.04316177631004874900260232907801919, +0.897677234732471434231297721539161942), (+1.14742505958290317439322094704865356, +0.798958411176048260904327292243707654E-1), (+1.64653736843563089130455373309544790, +0.289192017781922784000693706429427416), (+1.94104667563034017103288432129107444, +0.488320402915910635854074998931466325), (+1.59245209002730921590283310864559056, +0.399229487050702206495313297592631601), (+1.67898361228761287032587279887139002, +0.147468551097684643603360320057207728E-1), (+1.08952309030437310700962131331417549, +0.886820600707612030229207426679563136), (+1.78514328092864850094309985940895456, +0.708729472728622297069299024215627809), (+1.03630979229503340660588283188871514, +0.747276876748174244359580762085849810), (+1.47418977274218911667450251401952791, +0.208581707063248839930423784932649720E-1), (+1.78231285582690237966358732053185493, +0.301312911744339586316621590574413737), (+1.03098424356075282342702400604973753, +0.797711486627722362209314788520522207), (+1.28593558647437834808154199616209261, +0.637375191498855930693814993668753506), (+1.51773294467039966166898616300502238, +0.901444154281672739852505058104974374), (+1.25338509980622330713230519759570141, +0.511691993310088435496925458022379606), (+1.43635121998852117112310085143796083, +0.818936935712148661423623845127621273), (+1.07659061541098792871830132783293755, +0.236884118688850651649657232641655058), (-0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.385185988877447170611195588516985464E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.240741243048404481631997242823115915E-33), (+0.385185988877447170611195588516985464E-33, +0.240741243048404481631997242823115915E-33), (-0.577778983316170755916793382775478196E-33, -0.433334237487128066937595037081608647E-33), (-0.577778983316170755916793382775478196E-33, -0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, -0.337037740267766274284796139952362281E-33), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, -0.120370621524202240815998621411557957E-33), (-0.288889491658085377958396691387739098E-33, -0.337037740267766274284796139952362281E-33), (-0.674075480535532548569592279904724561E-33, -0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (-0.674075480535532548569592279904724561E-33, +0.216667118743564033468797518540804323E-33), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, -0.337037740267766274284796139952362281E-33), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (+0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.505556610401649411427194209928543421E-33), (-0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.577778983316170755916793382775478196E-33, -0.300926553810505602039996553528894894E-33), (+0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33), (-0.481482486096808963263994485646231830E-33, -0.433334237487128066937595037081608647E-33)
48reltol = sqrt(epsilon(1._TKC))
49reltol
50+0.138777878078144567552953958511352539E-16
51isClose(data, atad(1:size(data)), reltol = reltol)
52T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
53call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
54
55lenData = getUnifRand(5, 100)
56lenData
57+99
58data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
59data
60+1.11900687, +1.54918206, +1.39660311, +1.93700695, +1.42259502, +1.13393712, +1.79308772, +1.50713503, +1.95219088, +1.63374472, +1.93413758, +1.94492531, +1.95228171, +1.97507405, +1.16962862, +1.56745720, +1.00145459, +1.27440143, +1.08908987, +1.11659443, +1.43262744, +1.62780666, +1.13470364, +1.34772587, +1.17875433, +1.58759785, +1.12168860, +1.02783799, +1.31344914, +1.90820551, +1.65317369, +1.02295816, +1.64687300, +1.15767586, +1.33453858, +1.21869159, +1.07263923, +1.09604931, +1.07635260, +1.18031406, +1.94043899, +1.99566591, +1.04882348, +1.12705159, +1.19121432, +1.29427791, +1.02432346, +1.73237169, +1.52857089, +1.36441445, +1.77990317, +1.63691711, +1.72197366, +1.91711390, +1.30136371, +1.69904375, +1.91867661, +1.97476268, +1.00368571, +1.99994898, +1.15796161, +1.25152183, +1.25501072, +1.51545835, +1.96274924, +1.36283851, +1.09558511, +1.25269675, +1.97853339, +1.29491723, +1.45659232, +1.97842419, +1.36101413, +1.75876129, +1.51824069, +1.81388605, +1.08996665, +1.87499380, +1.95372570, +1.96574152, +1.40548515, +1.67153907, +1.90578818, +1.11796212, +1.73352349, +1.34811306, +1.22952962, +1.08385777, +1.99668527, +1.75162709, +1.77053857, +1.46124053, +1.09807396, +1.09807682, +1.49285293, +1.40197313, +1.99045146, +1.73511863, +1.23532081
61
62atad = getFFTR(getFFTF(data))
63atad = atad * 2 / size(atad)
64atad
65+1.11900663, +1.54918194, +1.39660311, +1.93700695, +1.42259479, +1.13393700, +1.79308748, +1.50713456, +1.95219100, +1.63374448, +1.93413770, +1.94492555, +1.95228183, +1.97507381, +1.16962898, +1.56745696, +1.00145459, +1.27440131, +1.08909023, +1.11659443, +1.43262744, +1.62780643, +1.13470376, +1.34772611, +1.17875433, +1.58759773, +1.12168884, +1.02783823, +1.31344914, +1.90820575, +1.65317369, +1.02295816, +1.64687288, +1.15767586, +1.33453882, +1.21869159, +1.07263947, +1.09604907, +1.07635260, +1.18031371, +1.94043875, +1.99566555, +1.04882348, +1.12705159, +1.19121432, +1.29427755, +1.02432346, +1.73237133, +1.52857089, +1.36441445, +1.77990317, +1.63691688, +1.72197366, +1.91711354, +1.30136371, +1.69904339, +1.91867638, +1.97476232, +1.00368571, +1.99994862, +1.15796185, +1.25152147, +1.25501060, +1.51545787, +1.96274924, +1.36283851, +1.09558535, +1.25269675, +1.97853351, +1.29491699, +1.45659256, +1.97842395, +1.36101377, +1.75876117, +1.51824057, +1.81388640, +1.08996665, +1.87499380, +1.95372593, +1.96574140, +1.40548491, +1.67153895, +1.90578806, +1.11796224, +1.73352361, +1.34811282, +1.22952974, +1.08385777, +1.99668479, +1.75162709, +1.77053833, +1.46124053, +1.09807396, +1.09807682, +1.49285293, +1.40197289, +1.99045122, +1.73511851, +1.23532116, +0.00000000, +0.178813934E-6, +0.178813934E-6, +0.178813934E-6, +0.357627869E-6, +0.00000000, -0.178813934E-6, +0.238418579E-6, +0.298023224E-6, +0.00000000, +0.119209290E-6, +0.596046448E-7, +0.178813934E-6, +0.596046448E-7, +0.00000000, +0.298023224E-6, +0.298023224E-6, +0.596046448E-7, +0.119209290E-6, +0.178813934E-6, +0.357627869E-6, +0.238418579E-6, -0.238418579E-6, +0.536441803E-6, +0.119209290E-6, +0.238418579E-6, -0.119209290E-6, +0.596046448E-7, -0.178813934E-6
66reltol = sqrt(epsilon(1._TKC))
67reltol
68+0.345266977E-3
69isClose(data, atad(1:size(data)), reltol = reltol)
70T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
71call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
72
73lenData = getUnifRand(5, 100)
74lenData
75+53
76data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
77data
78+1.7129683755577372, +1.9300358316921016, +1.8886140522092334, +1.6046097275575573, +1.8156902349103681, +1.0867873684605982, +1.3847125697250093, +1.8478858652890762, +1.0012140608829316, +1.7644857088995987, +1.2097148551958745, +1.2744065185013138, +1.1265786277211305, +1.6894924531907014, +1.2378882256914974, +1.6763063568439764, +1.6834465484779890, +1.8504303537164914, +1.9241329119921695, +1.6034375270918280, +1.8146414938471822, +1.8540233395112444, +1.0024984798307661, +1.5607805493185392, +1.3878059121218329, +1.0777347459944751, +1.7727126356256093, +1.0695793699123861, +1.7825797121862803, +1.6039416991115292, +1.5080084820117388, +1.3259325190747073, +1.2512835969712777, +1.1543522556160410, +1.2647789382511294, +1.6108193985951873, +1.7878745875068409, +1.1207330480525970, +1.1182754299417139, +1.2257411349817331, +1.6664862808835585, +1.0117713689580032, +1.7203562998730835, +1.4448177123723440, +1.8751873711611844, +1.1110831653060589, +1.0880186366130273, +1.8191746201987216, +1.1927398039658454, +1.9001418723732055, +1.5295353664978255, +1.6545488476789576, +1.5149461315486554
79
80atad = getFFTR(getFFTF(data))
81atad = atad * 2 / size(atad)
82atad
83+1.7129683755577370, +1.9300358316921016, +1.8886140522092330, +1.6046097275575575, +1.8156902349103679, +1.0867873684605982, +1.3847125697250084, +1.8478858652890762, +1.0012140608829316, +1.7644857088995987, +1.2097148551958741, +1.2744065185013138, +1.1265786277211307, +1.6894924531907016, +1.2378882256914967, +1.6763063568439762, +1.6834465484779890, +1.8504303537164914, +1.9241329119921693, +1.6034375270918280, +1.8146414938471824, +1.8540233395112447, +1.0024984798307659, +1.5607805493185389, +1.3878059121218327, +1.0777347459944748, +1.7727126356256084, +1.0695793699123857, +1.7825797121862805, +1.6039416991115290, +1.5080084820117379, +1.3259325190747071, +1.2512835969712777, +1.1543522556160410, +1.2647789382511290, +1.6108193985951871, +1.7878745875068411, +1.1207330480525970, +1.1182754299417135, +1.2257411349817331, +1.6664862808835585, +1.0117713689580032, +1.7203562998730830, +1.4448177123723438, +1.8751873711611846, +1.1110831653060591, +1.0880186366130269, +1.8191746201987213, +1.1927398039658457, +1.9001418723732058, +1.5295353664978257, +1.6545488476789578, +1.5149461315486554, -0.11102230246251565E-15, +0.22204460492503131E-15, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.55511151231257827E-15, +0.22204460492503131E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.88817841970012523E-15
84reltol = sqrt(epsilon(1._TKC))
85reltol
86+0.14901161193847656E-7
87isClose(data, atad(1:size(data)), reltol = reltol)
88T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
89call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
90
91lenData = getUnifRand(5, 100)
92lenData
93+67
94data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
95data
96+1.18176957293181182296776638945832224, +1.83336213351659489333318151456664737, +1.61104964023737336754337051118855580, +1.13701708928124583295851076448459881, +1.48164251995438440769244854917375008, +1.03254711315250569594988604709510483, +1.42668247176522918642405517642906145, +1.68315974709378234995816873323024437, +1.91620328167754299976615038032695839, +1.72569326710270067745761806671965128, +1.82232508479396681648136696197336655, +1.10838149705870115937678937329268668, +1.76015142727002107000205336310700803, +1.23984951854000208291666156861023240, +1.65418935562730526415467314831113347, +1.70274977292919393658848010013366370, +1.70069147915957537295837546227318203, +1.07022615542660374107653646885989981, +1.85091207004676106997950007076262858, +1.64683268117105592602821684644234443, +1.87603934903318857982308744490917096, +1.83572597023336421302981144964650427, +1.71220057669476187588360426690156511, +1.61199113772833846329131011240004640, +1.12679447723531925093304900463395091, +1.21094832219817290388135111933039522, +1.75022470946205160002091479451454699, +1.86272191066392794861316215006471308, +1.97818195177239302612728348357023840, +1.99171189409280973212544201581432004, +1.13610009933465799293614586517498859, +1.45036475555811558434890500202354610, +1.39924199629500259659341743891314267, +1.87568021631191313403313253234347047, +1.89281320954351774169496249059362583, +1.15983574596414353671845631089687364, +1.70657207360085701624525265148605645, +1.78092971029551355020288219551672688, +1.81662574584373292016887331348264309, +1.31913878147617427873505672863598161, +1.23351604561711290706156658484731171, +1.26822247940338341607615461793956108, +1.40925771716025082925620951655138033, +1.23086403721779710266612548705310498, +1.47036498268102607651880981009701932, +1.67004421940222088300354117164269901, +1.61544926719975536135122253560133648, +1.67963359767811322148338407261812542, +1.38363684688148542288114375619149026, +1.79755212739563286628598811714469181, +1.01204009200737195692985755090706547, +1.13189040002256343699086259697066969, +1.21979157845709480128805955188348406, +1.23160923063894648982495327216330904, +1.22062864475987253155092175998745667, +1.75587864574514179388288119697371792, +1.51754236060935607117461977564741240, +1.01462785974018704860085322792300665, +1.86872402695148981939295144579956840, +1.24076466598157495966437018226771043, +1.38247635221472772718795838710469037, +1.76711214048733752181113469869793863, +1.68798334966300491488531719712310371, +1.49669685365689622239144363604195279, +1.79650067444672671010117719227920068, +1.06007752893624164423741854988391753, +1.20094117905201798204341813355483237
97
98atad = getFFTR(getFFTF(data))
99atad = atad * 2 / size(atad)
100atad
101+1.18176957293181182296776638945832224, +1.83336213351659489333318151456664776, +1.61104964023737336754337051118855599, +1.13701708928124583295851076448459881, +1.48164251995438440769244854917375008, +1.03254711315250569594988604709510483, +1.42668247176522918642405517642906107, +1.68315974709378234995816873323024418, +1.91620328167754299976615038032695877, +1.72569326710270067745761806671965147, +1.82232508479396681648136696197336732, +1.10838149705870115937678937329268668, +1.76015142727002107000205336310700880, +1.23984951854000208291666156861023240, +1.65418935562730526415467314831113405, +1.70274977292919393658848010013366351, +1.70069147915957537295837546227318164, +1.07022615542660374107653646885989942, +1.85091207004676106997950007076262858, +1.64683268117105592602821684644234462, +1.87603934903318857982308744490917077, +1.83572597023336421302981144964650446, +1.71220057669476187588360426690156491, +1.61199113772833846329131011240004679, +1.12679447723531925093304900463395071, +1.21094832219817290388135111933039522, +1.75022470946205160002091479451454738, +1.86272191066392794861316215006471385, +1.97818195177239302612728348357023879, +1.99171189409280973212544201581432062, +1.13610009933465799293614586517498839, +1.45036475555811558434890500202354610, +1.39924199629500259659341743891314248, +1.87568021631191313403313253234347066, +1.89281320954351774169496249059362622, +1.15983574596414353671845631089687364, +1.70657207360085701624525265148605645, +1.78092971029551355020288219551672688, +1.81662574584373292016887331348264270, +1.31913878147617427873505672863598161, +1.23351604561711290706156658484731152, +1.26822247940338341607615461793956108, +1.40925771716025082925620951655138033, +1.23086403721779710266612548705310536, +1.47036498268102607651880981009701951, +1.67004421940222088300354117164269939, +1.61544926719975536135122253560133667, +1.67963359767811322148338407261812503, +1.38363684688148542288114375619149026, +1.79755212739563286628598811714469162, +1.01204009200737195692985755090706547, +1.13189040002256343699086259697066949, +1.21979157845709480128805955188348406, +1.23160923063894648982495327216330866, +1.22062864475987253155092175998745648, +1.75587864574514179388288119697371792, +1.51754236060935607117461977564741240, +1.01462785974018704860085322792300665, +1.86872402695148981939295144579956840, +1.24076466598157495966437018226771101, +1.38247635221472772718795838710469037, +1.76711214048733752181113469869793882, +1.68798334966300491488531719712310410, +1.49669685365689622239144363604195318, +1.79650067444672671010117719227920087, +1.06007752893624164423741854988391792, +1.20094117905201798204341813355483218, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.577778983316170755916793382775478196E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-33, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, +0.770371977754894341222391177033970927E-33, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, -0.674075480535532548569592279904724561E-33
102reltol = sqrt(epsilon(1._TKC))
103reltol
104+0.138777878078144567552953958511352539E-16
105isClose(data, atad(1:size(data)), reltol = reltol)
106T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
107call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
108
109lenData = getUnifRand(5, 100)
110lenData
111+59
112data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
113data
114(+1.09776890, +0.777199626), (+1.05900335, +0.626965106), (+1.81553733, +0.145910859), (+1.37642217, +0.824759603), (+1.34775424, +0.466360569), (+1.88400507, +0.372121394), (+1.10644352, +0.769153476), (+1.02046752, +0.963219404E-1), (+1.87290895, +0.284195006), (+1.52825332, +0.377298176), (+1.60741115, +0.259478331), (+1.46997094, +0.441890299), (+1.83705711, +0.551366210), (+1.86159873, +0.243231237), (+1.41138768, +0.288441181), (+1.86204410, +0.248464167), (+1.73975456, +0.891494870), (+1.61940956, +0.129118204), (+1.63864148, +0.862947106), (+1.88918543, +0.755965054), (+1.91938972, +0.773810804), (+1.70902944, +0.301357150), (+1.54576564, +0.351986766), (+1.98836052, +0.430929601), (+1.48236144, +0.971490204), (+1.46264648, +0.448294222), (+1.35207748, +0.815654993E-1), (+1.20840430, +0.950331688), (+1.56392384, +0.830666661), (+1.30828166, +0.668465674), (+1.13062215, +0.161931455), (+1.79704189, +0.471573472), (+1.10844517, +0.470220387), (+1.42916059, +0.476571977), (+1.50742364, +0.430027127), (+1.15613317, +0.540997982E-1), (+1.47947323, +0.250561833), (+1.00418568, +0.720029652), (+1.21320140, +0.891440153), (+1.71397948, +0.718673348), (+1.19135165, +0.455672503), (+1.39497995, +0.766385972), (+1.85757709, +0.399525881), (+1.77525353, +0.927933991), (+1.75340891, +0.358709157), (+1.09580100, +0.573440135), (+1.26659274, +0.437083840), (+1.73630953, +0.663326979), (+1.71283615, +0.148000777), (+1.36173725, +0.174784005), (+1.69892907, +0.860278606E-1), (+1.92719209, +0.814048111), (+1.21830463, +0.172551394), (+1.60491991, +0.526984811), (+1.05579925, +0.148653150), (+1.08169436, +0.566074073), (+1.16665697, +0.670945764), (+1.60483408, +0.834120214), (+1.99422359, +0.470045209E-1)
115
116atad = getFFTR(getFFTF(data))
117atad = atad / size(atad)
118atad
119(+1.09776914, +0.777199626), (+1.05900323, +0.626965165), (+1.81553721, +0.145910889), (+1.37642229, +0.824759603), (+1.34775460, +0.466360539), (+1.88400507, +0.372121394), (+1.10644352, +0.769153357), (+1.02046752, +0.963219702E-1), (+1.87290895, +0.284195065), (+1.52825332, +0.377298236), (+1.60741115, +0.259478331), (+1.46997082, +0.441890508), (+1.83705723, +0.551366329), (+1.86159861, +0.243231595), (+1.41138768, +0.288441241), (+1.86204398, +0.248464197), (+1.73975468, +0.891494811), (+1.61940944, +0.129118249), (+1.63864160, +0.862946987), (+1.88918555, +0.755964816), (+1.91938996, +0.773810804), (+1.70902932, +0.301357239), (+1.54576564, +0.351986796), (+1.98836064, +0.430929482), (+1.48236144, +0.971490204), (+1.46264637, +0.448294163), (+1.35207748, +0.815655589E-1), (+1.20840430, +0.950331688), (+1.56392384, +0.830666661), (+1.30828142, +0.668465614), (+1.13062215, +0.161931485), (+1.79704165, +0.471573532), (+1.10844529, +0.470220357), (+1.42916048, +0.476571947), (+1.50742364, +0.430027097), (+1.15613329, +0.540997684E-1), (+1.47947347, +0.250561863), (+1.00418568, +0.720029652), (+1.21320140, +0.891440153), (+1.71397948, +0.718673348), (+1.19135177, +0.455672443), (+1.39497995, +0.766385913), (+1.85757709, +0.399525881), (+1.77525342, +0.927933931), (+1.75340879, +0.358709306), (+1.09580076, +0.573440015), (+1.26659274, +0.437084019), (+1.73630941, +0.663326859), (+1.71283627, +0.148000777), (+1.36173713, +0.174784020), (+1.69892907, +0.860278904E-1), (+1.92719257, +0.814047992), (+1.21830487, +0.172551453), (+1.60491979, +0.526984811), (+1.05579925, +0.148653299), (+1.08169484, +0.566074073), (+1.16665709, +0.670945823), (+1.60483396, +0.834120035), (+1.99422359, +0.470045209E-1), (+0.417232513E-6, +0.894069672E-7), (+0.417232513E-6, -0.208616257E-6), (+0.417232513E-6, -0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.178813934E-6, +0.447034836E-7)
120reltol = sqrt(epsilon(1._TKC))
121reltol
122+0.345266977E-3
123isClose(data, atad(1:size(data)), reltol = reltol)
124T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
125call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
126
127lenData = getUnifRand(5, 100)
128lenData
129+99
130data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
131data
132(+1.5641309669296273, +0.60176399793086210), (+1.4875866409248630, +0.92955797815337349), (+1.7804868994335155, +0.83184281386652692), (+1.2359988918465032, +0.45772736668866254), (+1.1796945268267653, +0.38938148046998355E-1), (+1.2883900114918307, +0.78144116974670286), (+1.1562621342692370, +0.92061052392158571), (+1.4483216412592435, +0.32368518154699333), (+1.9546002630156094, +0.27138292166859590), (+1.4104979584637838, +0.88280165753969919), (+1.5765790870362086, +0.44351448721521203), (+1.8026308988716186, +0.14714460817236263), (+1.4372535884055309, +0.90429821300580970), (+1.9440619377633219, +0.67239457844295891), (+1.4577558877457564, +0.58629241231963192), (+1.7748084931041797, +0.19730554733842576), (+1.2965966228635901, +0.90397443900188001E-1), (+1.8721191755822266, +0.84282803995049704), (+1.7333340235083430, +0.78917187514939935), (+1.5050008657599951, +0.68578208918678762), (+1.1005200101887709, +0.18335790542146624E-2), (+1.1752267928069293, +0.17267683056457439), (+1.3129947405383278, +0.48923721005851328), (+1.4291192376050055, +0.75729655241293636), (+1.9642877800319547, +0.98145046291659099E-1), (+1.7427808124233850, +0.83232823587959825), (+1.3701292497763282, +0.92105084285415684), (+1.8747269738992951, +0.35390962494659783E-1), (+1.8980017421046698, +0.21041949674410643), (+1.4826839275749806, +0.12431468256835221), (+1.1951518275868223, +0.91845615403830794), (+1.8349497571407349, +0.86647688778097587E-2), (+1.6201970738546896, +0.87066432125862570), (+1.4774433960626721, +0.96143973509836611), (+1.0011165461222975, +0.24950029902470816), (+1.2233462554405325, +0.28983385739165790), (+1.0802016416014246, +0.20521940187780308E-1), (+1.9891591357144727, +0.39772410411941272), (+1.9728353187108227, +0.26628571596652029), (+1.3503177104198754, +0.37963054453816092E-1), (+1.6762041654566291, +0.86590602930922778), (+1.8151304909775230, +0.81166079915069111), (+1.9447785494164127, +0.62972597255524876), (+1.1205104987039307, +0.96610943547739003), (+1.7203366871872787, +0.99190309457822567), (+1.5688176926335415, +0.36693619672433830), (+1.1694748154630317, +0.74428221533273464), (+1.4189980014726034, +0.47553128763578911), (+1.2913490819712892, +0.17439094688180434), (+1.0850560056816239, +0.37685729099188958), (+1.7856622716548158, +0.93900493918313310), (+1.5459331478257869, +0.61083976565240450E-2), (+1.9669552964794164, +0.80342449103262370), (+1.9662224187860620, +0.32626396434780158E-1), (+1.6872512495148915, +0.34174051315195131E-1), (+1.2813673698198178, +0.44867423776277093), (+1.1844471744289986, +0.69936596598115464), (+1.2508904169549224, +0.70839703261542020), (+1.9874755808181077, +0.28187147068725615), (+1.9585934749696303, +0.54396583682816446), (+1.6101203846195440, +0.71438888205398698), (+1.5070715610874479, +0.49062612116893023), (+1.1091579655949844, +0.30904178067173382), (+1.2215160048603186, +0.14130382895604454), (+1.5040829342070425, +0.51999509912926345), (+1.3177329851852222, +0.72222519340694036), (+1.0327857128171480, +0.83292960157897999E-2), (+1.2415438916294308, +0.25810949602533118), (+1.9555370109094055, +0.32491020473861021), (+1.6641806814132138, +0.28370882364289851), (+1.5164142539020666, +0.79700792492402550), (+1.7032886886589838, +0.35370153588919517), (+1.6428418572404304, +0.56083148620179857), (+1.4691491700672172, +0.90997187372134947), (+1.9775489328498668, +0.15682172026254593), (+1.6670866454612607, +0.20900633926924206), (+1.4019913853949149, +0.87662944697394674), (+1.7366109298635486, +0.39992417283243709), (+1.8017813595819274, +0.59158313174279376), (+1.3995824222619526, +0.58612487282648040), (+1.1761526734693015, +0.84669707351644596), (+1.6257875106135917, +0.61341741544630379), (+1.5115706255450543, +0.79159676304276971), (+1.0775268379420102, +0.69120448762147313), (+1.6417096029694522, +0.88119569482236026), (+1.1028585399938606, +0.12094956664377043), (+1.8760310696689837, +0.76392502497525094), (+1.1555095244230214, +0.10249185776278857), (+1.4400053392506804, +0.81747151829286102), (+1.4000424010722581, +0.80006658801629038), (+1.4031751174871916, +0.21197381880920518), (+1.6429848396467166, +0.19737981564712070), (+1.0085827123749644, +0.53009152885085398), (+1.8521054052600152, +0.53596090703250310), (+1.8140391027608054, +0.70760718451021920), (+1.9612017157385342, +0.59769068194609731), (+1.9745964916789003, +0.77680211455213488), (+1.3715841415102004, +0.35300491738228357), (+1.5937725614916785, +0.71687554167474521)
133
134atad = getFFTR(getFFTF(data))
135atad = atad / size(atad)
136atad
137(+1.5641309669296273, +0.60176399793086210), (+1.4875866409248635, +0.92955797815337371), (+1.7804868994335155, +0.83184281386652725), (+1.2359988918465035, +0.45772736668866260), (+1.1796945268267651, +0.38938148046998466E-1), (+1.2883900114918307, +0.78144116974670308), (+1.1562621342692370, +0.92061052392158571), (+1.4483216412592437, +0.32368518154699361), (+1.9546002630156096, +0.27138292166859590), (+1.4104979584637845, +0.88280165753969919), (+1.5765790870362086, +0.44351448721521231), (+1.8026308988716193, +0.14714460817236286), (+1.4372535884055309, +0.90429821300580970), (+1.9440619377633219, +0.67239457844295925), (+1.4577558877457562, +0.58629241231963192), (+1.7748084931041801, +0.19730554733842595), (+1.2965966228635903, +0.90397443900187890E-1), (+1.8721191755822268, +0.84282803995049715), (+1.7333340235083428, +0.78917187514939935), (+1.5050008657599954, +0.68578208918678751), (+1.1005200101887704, +0.18335790542148289E-2), (+1.1752267928069293, +0.17267683056457472), (+1.3129947405383280, +0.48923721005851306), (+1.4291192376050059, +0.75729655241293647), (+1.9642877800319545, +0.98145046291659266E-1), (+1.7427808124233852, +0.83232823587959814), (+1.3701292497763278, +0.92105084285415673), (+1.8747269738992955, +0.35390962494660089E-1), (+1.8980017421046691, +0.21041949674410634), (+1.4826839275749806, +0.12431468256835243), (+1.1951518275868223, +0.91845615403830760), (+1.8349497571407349, +0.86647688778100362E-2), (+1.6201970738546896, +0.87066432125862558), (+1.4774433960626723, +0.96143973509836589), (+1.0011165461222973, +0.24950029902470816), (+1.2233462554405330, +0.28983385739165768), (+1.0802016416014246, +0.20521940187780183E-1), (+1.9891591357144724, +0.39772410411941239), (+1.9728353187108230, +0.26628571596651979), (+1.3503177104198754, +0.37963054453815870E-1), (+1.6762041654566286, +0.86590602930922755), (+1.8151304909775232, +0.81166079915069078), (+1.9447785494164127, +0.62972597255524843), (+1.1205104987039307, +0.96610943547738959), (+1.7203366871872783, +0.99190309457822523), (+1.5688176926335413, +0.36693619672433814), (+1.1694748154630319, +0.74428221533273420), (+1.4189980014726031, +0.47553128763578867), (+1.2913490819712889, +0.17439094688180423), (+1.0850560056816239, +0.37685729099188936), (+1.7856622716548154, +0.93900493918313266), (+1.5459331478257874, +0.61083976565239340E-2), (+1.9669552964794159, +0.80342449103262314), (+1.9662224187860620, +0.32626396434779964E-1), (+1.6872512495148919, +0.34174051315194909E-1), (+1.2813673698198178, +0.44867423776277054), (+1.1844471744289984, +0.69936596598115419), (+1.2508904169549226, +0.70839703261542009), (+1.9874755808181077, +0.28187147068725593), (+1.9585934749696305, +0.54396583682816435), (+1.6101203846195435, +0.71438888205398643), (+1.5070715610874479, +0.49062612116892990), (+1.1091579655949846, +0.30904178067173355), (+1.2215160048603186, +0.14130382895604432), (+1.5040829342070421, +0.51999509912926334), (+1.3177329851852224, +0.72222519340694047), (+1.0327857128171476, +0.83292960157897444E-2), (+1.2415438916294310, +0.25810949602533134), (+1.9555370109094052, +0.32491020473861010), (+1.6641806814132138, +0.28370882364289851), (+1.5164142539020666, +0.79700792492402550), (+1.7032886886589840, +0.35370153588919512), (+1.6428418572404302, +0.56083148620179846), (+1.4691491700672172, +0.90997187372134969), (+1.9775489328498668, +0.15682172026254587), (+1.6670866454612610, +0.20900633926924200), (+1.4019913853949146, +0.87662944697394640), (+1.7366109298635484, +0.39992417283243697), (+1.8017813595819274, +0.59158313174279387), (+1.3995824222619528, +0.58612487282648029), (+1.1761526734693015, +0.84669707351644574), (+1.6257875106135919, +0.61341741544630357), (+1.5115706255450541, +0.79159676304276971), (+1.0775268379420104, +0.69120448762147280), (+1.6417096029694520, +0.88119569482236004), (+1.1028585399938611, +0.12094956664377027), (+1.8760310696689839, +0.76392502497525061), (+1.1555095244230218, +0.10249185776278841), (+1.4400053392506804, +0.81747151829286091), (+1.4000424010722581, +0.80006658801628994), (+1.4031751174871909, +0.21197381880920496), (+1.6429848396467166, +0.19737981564712073), (+1.0085827123749644, +0.53009152885085353), (+1.8521054052600152, +0.53596090703250288), (+1.8140391027608054, +0.70760718451021898), (+1.9612017157385342, +0.59769068194609676), (+1.9745964916789003, +0.77680211455213466), (+1.3715841415102001, +0.35300491738228335), (+1.5937725614916785, +0.71687554167474499), (+0.0000000000000000, -0.22204460492503131E-15), (-0.11102230246251565E-15, +0.23592239273284576E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.27755575615628914E-15), (+0.11102230246251565E-15, +0.55511151231257827E-16), (-0.44408920985006262E-15, -0.22204460492503131E-15), (-0.22204460492503131E-15, -0.33306690738754696E-15), (-0.33306690738754696E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.11102230246251565E-15, +0.0000000000000000), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.22204460492503131E-15, +0.0000000000000000), (+0.55511151231257827E-15, -0.30531133177191805E-15), (+0.0000000000000000, +0.11102230246251565E-15), (+0.11102230246251565E-15, -0.30531133177191805E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.55511151231257827E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, +0.49960036108132044E-15), (+0.77715611723760958E-15, +0.36082248300317588E-15), (+0.22204460492503131E-15, +0.77715611723760958E-15), (+0.77715611723760958E-15, +0.38857805861880479E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.44408920985006262E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, +0.49960036108132044E-15), (+0.66613381477509392E-15, +0.11102230246251565E-15), (+0.33306690738754696E-15, +0.77715611723760958E-15), (+0.66613381477509392E-15, +0.47184478546569153E-15), (+0.44408920985006262E-15, +0.72164496600635175E-15), (+0.11102230246251565E-14, +0.51347814888913490E-15)
138reltol = sqrt(epsilon(1._TKC))
139reltol
140+0.14901161193847656E-7
141isClose(data, atad(1:size(data)), reltol = reltol)
142T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
143call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
144
145lenData = getUnifRand(5, 100)
146lenData
147+40
148data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
149data
150(+1.51730156871353024646981314378311522, +0.345620800697845068962335815162406073), (+1.92869079567778530433903839529425971, +0.217017476518137061423125427054450867), (+1.95707098024713702495267519282705633, +0.149436857569172895029069839674594747E-1), (+1.72525617708935252130353346304796280, +0.194749933685987532291083042685888482), (+1.79340727901699049771367298789255568, +0.375016255836413913560404342801642338), (+1.38812428973839059568697967838371087, +0.574433325613833760640170871258059374), (+1.59846969350719396675854152223558961, +0.289709410986112355599502250385630770), (+1.48981398708381431259314621400724390, +0.303471258674437892128742459793320485), (+1.38494771228582289435073517695430368, +0.140194107489543013392515860832168328), (+1.71573228110567024706085100473285327, +0.961418882277953861047298290666395047), (+1.94174745532812526041262335824309057, +0.588348688855932233858785183197566933), (+1.22025977085867258495218151218821607, +0.590041760393611214339694012372262497), (+1.74649171103869327906344870168422818, +0.597461090860989191887263040192198358), (+1.54249081222687625694945184537768120, +0.820867576437707695908244323681070121), (+1.77499610901268263540410247952811167, +0.243150638923052341822896848528832636E-1), (+1.66841547199545742755870440301107342, +0.445066423555143481932180373848812311), (+1.68133038157773905233411638590453793, +0.839237995239916188331479149404545234), (+1.59695479200752621569752657376476797, +0.241742419179716203033273210384398038E-1), (+1.81355103216159778438679668629689589, +0.652974854042001526082793869562669167), (+1.97950436203324632204066257602410147, +0.239485722784860360338703931371458726), (+1.00495922292280023499322342497655284, +0.939974087472669413312426357724239895), (+1.23579842308607922638046739663726723, +0.130146640010490613775637151427647497), (+1.45394342391332687499098076754763631, +0.779449851225419402706820723699053159), (+1.12658754671174055186065984882397733, +0.907396326141295187783835403074468455), (+1.74615455794692334776891109081119471, +0.876350220090564504979315001498021258E-1), (+1.40771835427237554261186346904530690, +0.988293683887769403700912145711115104), (+1.22611138080014590127023953639590322, +0.668473518548742708779791142452830413), (+1.61336018934058687632962083149352728, +0.683575415510768064974056974584545970), (+1.83522994837918144629205523852277490, +0.463537242393312690852566215300001528), (+1.45295689021325126230320862779508654, +0.448127330728868606131151502033498575E-1), (+1.37055841534340780700049643048652172, +0.685417673758918001910959697664774801), (+1.77910380266910935388893928703841753, +0.867636389087267307339152570703585872), (+1.90784807889376051835799675788499304, +0.618756079595706436422927773232473359E-1), (+1.11119289108749419140510159737087088, +0.437184458902471725805680548918646364), (+1.14908642803914294546906094102546370, +0.378623225335248553262343568767974903), (+1.27046900682759607215081219546052782, +0.875286014705156179550253770061025052), (+1.71765637683163068909520641829742572, +0.179393515083207418385075672959313284), (+1.51684779979843075590715415328157479, +0.386798222868625743346167123040281609), (+1.03742934513671748804748995098517823, +0.139559882242551052104143178263660730E-1), (+1.96722476800666570281592764048680446, +0.394109943217839682478208220347063757)
151
152atad = getFFTR(getFFTF(data))
153atad = atad / size(atad)
154atad
155(+1.51730156871353024646981314378311522, +0.345620800697845068962335815162406217), (+1.92869079567778530433903839529425971, +0.217017476518137061423125427054450843), (+1.95707098024713702495267519282705633, +0.149436857569172895029069839674594747E-1), (+1.72525617708935252130353346304796280, +0.194749933685987532291083042685888578), (+1.79340727901699049771367298789255626, +0.375016255836413913560404342801642241), (+1.38812428973839059568697967838371125, +0.574433325613833760640170871258059181), (+1.59846969350719396675854152223558961, +0.289709410986112355599502250385630578), (+1.48981398708381431259314621400724390, +0.303471258674437892128742459793320244), (+1.38494771228582289435073517695430387, +0.140194107489543013392515860832168472), (+1.71573228110567024706085100473285327, +0.961418882277953861047298290666395047), (+1.94174745532812526041262335824309038, +0.588348688855932233858785183197567126), (+1.22025977085867258495218151218821607, +0.590041760393611214339694012372262593), (+1.74649171103869327906344870168422875, +0.597461090860989191887263040192198551), (+1.54249081222687625694945184537768159, +0.820867576437707695908244323681070217), (+1.77499610901268263540410247952811167, +0.243150638923052341822896848528833599E-1), (+1.66841547199545742755870440301107361, +0.445066423555143481932180373848812455), (+1.68133038157773905233411638590453812, +0.839237995239916188331479149404545234), (+1.59695479200752621569752657376476816, +0.241742419179716203033273210384395872E-1), (+1.81355103216159778438679668629689551, +0.652974854042001526082793869562669070), (+1.97950436203324632204066257602410127, +0.239485722784860360338703931371458702), (+1.00495922292280023499322342497655284, +0.939974087472669413312426357724240088), (+1.23579842308607922638046739663726743, +0.130146640010490613775637151427647400), (+1.45394342391332687499098076754763650, +0.779449851225419402706820723699053255), (+1.12658754671174055186065984882397753, +0.907396326141295187783835403074468455), (+1.74615455794692334776891109081119451, +0.876350220090564504979315001498020416E-1), (+1.40771835427237554261186346904530690, +0.988293683887769403700912145711115104), (+1.22611138080014590127023953639590302, +0.668473518548742708779791142452830220), (+1.61336018934058687632962083149352728, +0.683575415510768064974056974584545777), (+1.83522994837918144629205523852277509, +0.463537242393312690852566215300001528), (+1.45295689021325126230320862779508673, +0.448127330728868606131151502033498575E-1), (+1.37055841534340780700049643048652153, +0.685417673758918001910959697664774898), (+1.77910380266910935388893928703841753, +0.867636389087267307339152570703585680), (+1.90784807889376051835799675788499304, +0.618756079595706436422927773232474804E-1), (+1.11119289108749419140510159737087088, +0.437184458902471725805680548918646364), (+1.14908642803914294546906094102546351, +0.378623225335248553262343568767974903), (+1.27046900682759607215081219546052801, +0.875286014705156179550253770061025149), (+1.71765637683163068909520641829742591, +0.179393515083207418385075672959313669), (+1.51684779979843075590715415328157517, +0.386798222868625743346167123040281994), (+1.03742934513671748804748995098517823, +0.139559882242551052104143178263662415E-1), (+1.96722476800666570281592764048680427, +0.394109943217839682478208220347063805), (+0.00000000000000000000000000000000000, +0.361111864572606722447995864234673872E-34), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.385185988877447170611195588516985464E-33, +0.120370621524202240815998621411557957E-33), (+0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.168518870133883137142398069976181140E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.962964972193617926527988971292463659E-34, +0.108333559371782016734398759270402162E-33), (+0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000), (+0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-33), (+0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33), (+0.385185988877447170611195588516985464E-33, -0.361111864572606722447995864234673872E-33), (+0.00000000000000000000000000000000000, -0.240741243048404481631997242823115915E-33), (+0.00000000000000000000000000000000000, -0.144444745829042688979198345693869549E-33), (-0.192592994438723585305597794258492732E-33, +0.962964972193617926527988971292463659E-34)
156reltol = sqrt(epsilon(1._TKC))
157reltol
158+0.138777878078144567552953958511352539E-16
159isClose(data, atad(1:size(data)), reltol = reltol)
160T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
161call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
162
163lenData = getUnifRand(5, 100)
164lenData
165+94
166data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
167data
168+1.89249444, +1.57251430, +1.89057505, +1.43569350, +1.72158968, +1.00709462, +1.23882842, +1.69368577, +1.87620509, +1.24297905, +1.81448829, +1.74821293, +1.47201681, +1.12138796, +1.27468061, +1.32201505, +1.99200702, +1.33882141, +1.00206208, +1.26262426, +1.10964370, +1.77651644, +1.40228820, +1.96994162, +1.72326207, +1.70211124, +1.61779165, +1.98326111, +1.97545719, +1.29888034, +1.99520898, +1.07989597, +1.63901210, +1.54007947, +1.46553683, +1.40438855, +1.07406390, +1.17320979, +1.08203530, +1.98558784, +1.41141665, +1.42105341, +1.06732702, +1.90790641, +1.29032397, +1.58812380, +1.20219254, +1.91648090, +1.05733109, +1.38641143, +1.00320756, +1.87048197, +1.52433062, +1.85203028, +1.97804332, +1.94515252, +1.06564415, +1.89330542, +1.67884207, +1.51724005, +1.30928671, +1.30655396, +1.08639169, +1.59598422, +1.31449628, +1.02101517, +1.54156244, +1.79768085, +1.62775445, +1.73468506, +1.63609767, +1.54318690, +1.69120383, +1.29354811, +1.46012473, +1.28221631, +1.40990448, +1.46963811, +1.41926670, +1.59452808, +1.69124198, +1.01570249, +1.05912352, +1.79437172, +1.84119558, +1.50452995, +1.15936852, +1.64927006, +1.05823040, +1.41036010, +1.07509232, +1.20355487, +1.49964750, +1.84468246
169
170atad = getFFTR(getFFTF(data))
171atad = atad * 2 / size(atad)
172atad
173+1.89249420, +1.57251418, +1.89057469, +1.43569374, +1.72158957, +1.00709462, +1.23882794, +1.69368565, +1.87620533, +1.24297893, +1.81448793, +1.74821305, +1.47201669, +1.12138784, +1.27468014, +1.32201493, +1.99200678, +1.33882153, +1.00206149, +1.26262450, +1.10964370, +1.77651644, +1.40228796, +1.96994162, +1.72326183, +1.70211160, +1.61779130, +1.98326123, +1.97545719, +1.29888058, +1.99520874, +1.07989621, +1.63901186, +1.54007936, +1.46553671, +1.40438867, +1.07406390, +1.17320943, +1.08203530, +1.98558736, +1.41141653, +1.42105329, +1.06732678, +1.90790629, +1.29032397, +1.58812356, +1.20219254, +1.91648102, +1.05733109, +1.38641107, +1.00320733, +1.87048173, +1.52433085, +1.85202992, +1.97804320, +1.94515228, +1.06564403, +1.89330518, +1.67884195, +1.51724005, +1.30928671, +1.30655408, +1.08639145, +1.59598422, +1.31449604, +1.02101505, +1.54156256, +1.79768085, +1.62775469, +1.73468494, +1.63609767, +1.54318702, +1.69120371, +1.29354823, +1.46012449, +1.28221655, +1.40990460, +1.46963823, +1.41926670, +1.59452808, +1.69124174, +1.01570261, +1.05912340, +1.79437160, +1.84119582, +1.50452995, +1.15936852, +1.64927006, +1.05823016, +1.41036046, +1.07509220, +1.20355451, +1.49964762, +1.84468269, +0.00000000, +0.298023224E-6, -0.178813934E-6, +0.238418579E-6, +0.119209290E-6, +0.417232513E-6, +0.357627869E-6, +0.417232513E-6, -0.178813934E-6, +0.655651093E-6, +0.00000000, +0.357627869E-6, +0.119209290E-6, +0.476837158E-6, +0.298023224E-6, +0.476837158E-6, +0.00000000, +0.417232513E-6, +0.357627869E-6, +0.238418579E-6, +0.238418579E-6, +0.476837158E-6, +0.655651093E-6, +0.357627869E-6, +0.00000000, +0.417232513E-6, +0.476837158E-6, +0.238418579E-6, +0.119209290E-6, +0.00000000, +0.357627869E-6, +0.238418579E-6, -0.238418579E-6, +0.238418579E-6
174reltol = sqrt(epsilon(1._TKC))
175reltol
176+0.345266977E-3
177isClose(data, atad(1:size(data)), reltol = reltol)
178T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
179call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
180
181lenData = getUnifRand(5, 100)
182lenData
183+59
184data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
185data
186+1.9513624722765295, +1.3868856805912539, +1.5572239639524552, +1.9798236537914065, +1.6721677885292063, +1.9713130246208477, +1.6630780430832801, +1.2419052354093336, +1.3642993558401406, +1.3028013726227869, +1.2821832893835960, +1.7181386252443673, +1.4546222550265380, +1.4026283233114722, +1.8457102684789730, +1.5434748261500375, +1.1923811894638598, +1.4828001747177031, +1.2803859082968512, +1.2239111612372975, +1.6605230416449834, +1.3419212392011808, +1.2332422752162397, +1.3909168754190031, +1.8775730018964141, +1.3516025916286059, +1.3086607749322750, +1.5252268313507436, +1.7030182618427037, +1.0656407446191101, +1.7816054552892848, +1.9314009245259123, +1.7548978376548006, +1.8970425397508919, +1.3014458507002309, +1.0797544957345400, +1.4102194702116244, +1.2980200308455352, +1.1535252330682182, +1.6552067554162238, +1.9729306229034760, +1.6084152797367310, +1.8003995424057417, +1.6865362884860033, +1.0620183272028503, +1.4460624932845758, +1.1180316617946890, +1.1297838177502015, +1.7474362040386646, +1.7785422210949042, +1.5517758315965002, +1.2586393946202450, +1.1342601292201677, +1.5386921377451812, +1.6580278381782745, +1.4831725228662265, +1.4443236508351673, +1.7665106823889947, +1.6117288044298448
187
188atad = getFFTR(getFFTF(data))
189atad = atad * 2 / size(atad)
190atad
191+1.9513624722765297, +1.3868856805912539, +1.5572239639524548, +1.9798236537914060, +1.6721677885292059, +1.9713130246208477, +1.6630780430832797, +1.2419052354093332, +1.3642993558401406, +1.3028013726227869, +1.2821832893835960, +1.7181386252443671, +1.4546222550265373, +1.4026283233114720, +1.8457102684789726, +1.5434748261500373, +1.1923811894638601, +1.4828001747177031, +1.2803859082968509, +1.2239111612372973, +1.6605230416449834, +1.3419212392011803, +1.2332422752162395, +1.3909168754190027, +1.8775730018964141, +1.3516025916286059, +1.3086607749322750, +1.5252268313507433, +1.7030182618427028, +1.0656407446191096, +1.7816054552892839, +1.9314009245259114, +1.7548978376548006, +1.8970425397508919, +1.3014458507002304, +1.0797544957345395, +1.4102194702116244, +1.2980200308455350, +1.1535252330682182, +1.6552067554162238, +1.9729306229034760, +1.6084152797367310, +1.8003995424057413, +1.6865362884860029, +1.0620183272028498, +1.4460624932845751, +1.1180316617946893, +1.1297838177502013, +1.7474362040386648, +1.7785422210949045, +1.5517758315964998, +1.2586393946202448, +1.1342601292201677, +1.5386921377451808, +1.6580278381782743, +1.4831725228662263, +1.4443236508351673, +1.7665106823889949, +1.6117288044298443, +0.11102230246251565E-15, +0.22204460492503131E-15, +0.0000000000000000, +0.77715611723760958E-15, +0.55511151231257827E-15
192reltol = sqrt(epsilon(1._TKC))
193reltol
194+0.14901161193847656E-7
195isClose(data, atad(1:size(data)), reltol = reltol)
196T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
197call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
198
199lenData = getUnifRand(5, 100)
200lenData
201+66
202data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
203data
204+1.63472042675451731949808590847510058, +1.11071248820776692061252251825248832, +1.73395419268794091449269893066106031, +1.70068594832317213177723330916417649, +1.83355665197483886447102176342570085, +1.64049713986961216791536728728864423, +1.50973863364119774732830678006198844, +1.76211660039818438769068214381825017, +1.77022987438060723905431683427274873, +1.40791822889741026175575692987452806, +1.34999272232992033454599970694194994, +1.78107303426388153671884163361174863, +1.26192211538502097010835263423195242, +1.08771593001940825121996748299018072, +1.56047772565681040305730994073045198, +1.46618613758373260959027202456837917, +1.27208360763854474765326310763531634, +1.32030499970292815977956172985191608, +1.82838205991168417165984074628802136, +1.12848881760912460624934697754887106, +1.86612440052859687580796555076724340, +1.48179010590739238586192075789962224, +1.85033592418590836532933737318364142, +1.82445246571287205388627583149781249, +1.96324158180164629204054365189828628, +1.61989749022511471256724992097221577, +1.42292935445063663410091818209307485, +1.22179575323862887907587213728743890, +1.79681030433516389947899602325687965, +1.50988936560524684656511125372376825, +1.19050918810161446853041516739672652, +1.35770545155835379326888664601147414, +1.90120862775747503840259254749098517, +1.57689029575133816686779213319429783, +1.91331394616993052292124781442763339, +1.52812285637557479163088129947147161, +1.65991582804621283986900071622566549, +1.62630433073509662424243093024243466, +1.43861495604199858269781689224534949, +1.01845863929576217726311377742446938, +1.24898366624325424326461393374438139, +1.43261637910685022819911197664778834, +1.90367263096166806622110592400423200, +1.71875979480511821206982503272156784, +1.29763227387554051315385060862611272, +1.81629219411293209424476152271921106, +1.81458874323607862209667921051868634, +1.23501424110947008648344178499725516, +1.95761222920808657598743188653713468, +1.76424181997770438476221762134707942, +1.08018128247359033242736695479641267, +1.11723510742216109969914728728616184, +1.96057655810063670574993007084342998, +1.57625776237940438416587496052074147, +1.86030963766672696799928651825142972, +1.40261025254875838123280649033170404, +1.67231584366796459098555028459618031, +1.18215124398714186676679950801736801, +1.95958286320714981320073704879733443, +1.27472380627957093182362135606189598, +1.63227043687509270563347097254691584, +1.73390983697120938043429010877702793, +1.36525923640773517419881095033798420, +1.08769494087407970131329430373920306, +1.69783937392208825820801360775816889, +1.01592316315645657886783436861673373
205
206atad = getFFTR(getFFTF(data))
207atad = atad * 2 / size(atad)
208atad
209+1.63472042675451731949808590847510058, +1.11071248820776692061252251825248832, +1.73395419268794091449269893066106070, +1.70068594832317213177723330916417707, +1.83355665197483886447102176342570047, +1.64049713986961216791536728728864423, +1.50973863364119774732830678006198805, +1.76211660039818438769068214381825037, +1.77022987438060723905431683427274950, +1.40791822889741026175575692987452806, +1.34999272232992033454599970694195071, +1.78107303426388153671884163361174902, +1.26192211538502097010835263423195223, +1.08771593001940825121996748299018052, +1.56047772565681040305730994073045217, +1.46618613758373260959027202456837936, +1.27208360763854474765326310763531634, +1.32030499970292815977956172985191608, +1.82838205991168417165984074628802136, +1.12848881760912460624934697754887125, +1.86612440052859687580796555076724282, +1.48179010590739238586192075789962205, +1.85033592418590836532933737318364123, +1.82445246571287205388627583149781307, +1.96324158180164629204054365189828647, +1.61989749022511471256724992097221635, +1.42292935445063663410091818209307485, +1.22179575323862887907587213728743928, +1.79681030433516389947899602325688023, +1.50988936560524684656511125372376863, +1.19050918810161446853041516739672633, +1.35770545155835379326888664601147414, +1.90120862775747503840259254749098517, +1.57689029575133816686779213319429783, +1.91331394616993052292124781442763358, +1.52812285637557479163088129947147200, +1.65991582804621283986900071622566587, +1.62630433073509662424243093024243447, +1.43861495604199858269781689224534949, +1.01845863929576217726311377742446938, +1.24898366624325424326461393374438139, +1.43261637910685022819911197664778853, +1.90367263096166806622110592400423220, +1.71875979480511821206982503272156822, +1.29763227387554051315385060862611291, +1.81629219411293209424476152271921145, +1.81458874323607862209667921051868654, +1.23501424110947008648344178499725516, +1.95761222920808657598743188653713468, +1.76424181997770438476221762134707903, +1.08018128247359033242736695479641248, +1.11723510742216109969914728728616164, +1.96057655810063670574993007084342998, +1.57625776237940438416587496052074108, +1.86030963766672696799928651825142953, +1.40261025254875838123280649033170385, +1.67231584366796459098555028459618031, +1.18215124398714186676679950801736801, +1.95958286320714981320073704879733404, +1.27472380627957093182362135606189598, +1.63227043687509270563347097254691642, +1.73390983697120938043429010877702831, +1.36525923640773517419881095033798439, +1.08769494087407970131329430373920325, +1.69783937392208825820801360775816889, +1.01592316315645657886783436861673373, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, -0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33, -0.577778983316170755916793382775478196E-33, -0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, +0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000, -0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33, -0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000, +0.385185988877447170611195588516985464E-33, +0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-33, +0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, -0.385185988877447170611195588516985464E-33, +0.00000000000000000000000000000000000
210reltol = sqrt(epsilon(1._TKC))
211reltol
212+0.138777878078144567552953958511352539E-16
213isClose(data, atad(1:size(data)), reltol = reltol)
214T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
215call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
216
217lenData = getUnifRand(5, 100)
218lenData
219+36
220data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
221data
222(+1.03234148, +0.270034969), (+1.67978489, +0.941249788), (+1.62492704, +0.524665833), (+1.27942967, +0.305634022), (+1.77716136, +0.251299143E-1), (+1.58153057, +0.232755780), (+1.41149354, +0.745082498E-1), (+1.41346347, +0.601893842), (+1.38148093, +0.305153131E-1), (+1.21996140, +0.415374875), (+1.21094370, +0.510286093), (+1.33632958, +0.849133432), (+1.13102365, +0.382383227), (+1.64117336, +0.425326228), (+1.57932639, +0.482361197), (+1.23968720, +0.531010449), (+1.19505072, +0.231129289), (+1.67470503, +0.485944748), (+1.16892385, +0.763989449), (+1.73074841, +0.361422539), (+1.66975808, +0.278534651), (+1.49786162, +0.552036881), (+1.49289882, +0.635638237E-1), (+1.28297913, +0.275560677), (+1.93337893, +0.137899876), (+1.49876392, +0.919059634), (+1.48922706, +0.564469337), (+1.09102750, +0.262141526), (+1.11012495, +0.727929711), (+1.42966390, +0.795627058), (+1.09070110, +0.577987552), (+1.38978195, +0.658477545), (+1.63451767, +0.155936241), (+1.44078159, +0.566992402), (+1.42347014, +0.863372326), (+1.05552864, +0.685491025)
223
224atad = getFFTR(getFFTF(data))
225atad = atad / size(atad)
226atad
227(+1.03234148, +0.270034969), (+1.67978466, +0.941249788), (+1.62492681, +0.524665833), (+1.27942920, +0.305633962), (+1.77716136, +0.251298323E-1), (+1.58153057, +0.232755780), (+1.41149354, +0.745082200E-1), (+1.41346323, +0.601893663), (+1.38148093, +0.305154622E-1), (+1.21996117, +0.415374994), (+1.21094370, +0.510286093), (+1.33632946, +0.849133372), (+1.13102353, +0.382383406), (+1.64117336, +0.425326437), (+1.57932627, +0.482361376), (+1.23968697, +0.531010628), (+1.19505072, +0.231129229), (+1.67470491, +0.485944659), (+1.16892397, +0.763989270), (+1.73074818, +0.361422420), (+1.66975796, +0.278534651), (+1.49786150, +0.552036881), (+1.49289870, +0.635637641E-1), (+1.28297901, +0.275560677), (+1.93337870, +0.137899935), (+1.49876356, +0.919059515), (+1.48922682, +0.564469159), (+1.09102726, +0.262141466), (+1.11012471, +0.727929711), (+1.42966354, +0.795627117), (+1.09070110, +0.577987432), (+1.38978171, +0.658477426), (+1.63451767, +0.155936196), (+1.44078147, +0.566992342), (+1.42347026, +0.863372087), (+1.05552888, +0.685490847), (-0.596046448E-7, +0.372529030E-7), (+0.596046448E-7, -0.745058060E-8), (+0.238418579E-6, -0.335276127E-7), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, -0.149011612E-6), (+0.596046448E-7, -0.149011612E-7), (+0.298023224E-6, +0.00000000), (+0.178813934E-6, +0.596046448E-7), (+0.119209290E-6, -0.163912773E-6), (+0.596046448E-7, -0.208616257E-6), (+0.238418579E-6, -0.178813934E-6), (-0.596046448E-7, -0.208616257E-6), (+0.00000000, +0.223517418E-7), (-0.119209290E-6, +0.894069672E-7), (+0.238418579E-6, +0.178813934E-6), (+0.00000000, +0.193715096E-6), (+0.119209290E-6, +0.00000000), (+0.119209290E-6, -0.298023224E-7), (+0.298023224E-6, +0.122934580E-6), (+0.00000000, +0.596046448E-7), (+0.238418579E-6, -0.111758709E-6), (+0.119209290E-6, +0.00000000), (+0.238418579E-6, +0.178813934E-6), (+0.119209290E-6, +0.298023224E-6), (+0.119209290E-6, -0.298023224E-7), (+0.238418579E-6, -0.119209290E-6), (+0.178813934E-6, +0.119209290E-6), (+0.596046448E-7, +0.894069672E-7)
228reltol = sqrt(epsilon(1._TKC))
229reltol
230+0.345266977E-3
231isClose(data, atad(1:size(data)), reltol = reltol)
232T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
233call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
234
235lenData = getUnifRand(5, 100)
236lenData
237+44
238data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
239data
240(+1.7555489141109049, +0.14061463496221049), (+1.9371818945686781, +0.20137145233851461), (+1.1423506577964075, +0.68184536931245299), (+1.5770773787208043, +0.42413272627362486), (+1.2218385635503688, +0.29052689666733422), (+1.8458820344082922, +0.56263006836373552), (+1.0843408386092876, +0.81201870808372190), (+1.9183756027315719, +0.50368209343954662), (+1.0277923850072754, +0.17207658230954548), (+1.1912789576761806, +0.48301512544158298), (+1.8438165107390083, +0.25305692624701615E-1), (+1.9212086835811668, +0.78453532946450755), (+1.9768337733193275, +0.60319918780934767), (+1.7962704248854386, +0.36185123446198286E-1), (+1.5479795956501659, +0.26915360767306429), (+1.3181138211153509, +0.15510841844368040), (+1.3456247548271774, +0.44579499838648329), (+1.6714401219293085, +0.12076383677690594), (+1.9129227773165853, +0.11018102905004901), (+1.3481760515508960, +0.75794639946305375), (+1.0026768079859671, +0.97332447385225629), (+1.4660989935681732, +0.79761131953640207E-1), (+1.9170719223986010, +0.18686742109846166), (+1.2556152760256893, +0.43515082510210190E-1), (+1.6660162850845743, +0.38598226329750296E-1), (+1.0251691352129697, +0.21290812397438263), (+1.0820271351272890, +0.70911758194833552), (+1.5966114688681317, +0.37271248273593405), (+1.0016313634630039, +0.78099553841701697), (+1.3023651275278048, +0.54915193395858253), (+1.2253642111007821, +0.76379863301616679), (+1.7270640598755032, +0.85007113415929547), (+1.5154238213772375, +0.33675103827764652), (+1.3198200886468445, +0.86998378766324924), (+1.8042371414283704, +0.90769013659491860), (+1.6116804574402803, +0.48769171045450188), (+1.0857719468766773, +0.98501859618248155), (+1.2491702395171127, +0.11569378018742449), (+1.6212011983851862, +0.21366021894643805), (+1.3149718475424907, +0.57115910753547794), (+1.2118328060334143, +0.94515666767887330), (+1.8053651724466477, +0.88584542311844539), (+1.0839607933204882, +0.81954491774967830E-1), (+1.2026486715972444, +0.82922908432141884)
241
242atad = getFFTR(getFFTF(data))
243atad = atad / size(atad)
244atad
245(+1.7555489141109044, +0.14061463496221052), (+1.9371818945686787, +0.20137145233851489), (+1.1423506577964069, +0.68184536931245343), (+1.5770773787208041, +0.42413272627362536), (+1.2218385635503686, +0.29052689666733433), (+1.8458820344082929, +0.56263006836373586), (+1.0843408386092874, +0.81201870808372190), (+1.9183756027315715, +0.50368209343954684), (+1.0277923850072750, +0.17207658230954559), (+1.1912789576761806, +0.48301512544158304), (+1.8438165107390077, +0.25305692624702197E-1), (+1.9212086835811664, +0.78453532946450777), (+1.9768337733193269, +0.60319918780934811), (+1.7962704248854391, +0.36185123446198758E-1), (+1.5479795956501654, +0.26915360767306451), (+1.3181138211153507, +0.15510841844368090), (+1.3456247548271767, +0.44579499838648318), (+1.6714401219293089, +0.12076383677690579), (+1.9129227773165849, +0.11018102905004887), (+1.3481760515508960, +0.75794639946305364), (+1.0026768079859671, +0.97332447385225629), (+1.4660989935681739, +0.79761131953639958E-1), (+1.9170719223986008, +0.18686742109846124), (+1.2556152760256893, +0.43515082510210301E-1), (+1.6660162850845741, +0.38598226329750240E-1), (+1.0251691352129702, +0.21290812397438272), (+1.0820271351272890, +0.70911758194833485), (+1.5966114688681314, +0.37271248273593383), (+1.0016313634630039, +0.78099553841701663), (+1.3023651275278048, +0.54915193395858197), (+1.2253642111007821, +0.76379863301616635), (+1.7270640598755027, +0.85007113415929481), (+1.5154238213772371, +0.33675103827764641), (+1.3198200886468447, +0.86998378766324924), (+1.8042371414283702, +0.90769013659491826), (+1.6116804574402801, +0.48769171045450138), (+1.0857719468766773, +0.98501859618248144), (+1.2491702395171129, +0.11569378018742438), (+1.6212011983851862, +0.21366021894643772), (+1.3149718475424907, +0.57115910753547772), (+1.2118328060334138, +0.94515666767887296), (+1.8053651724466473, +0.88584542311844516), (+1.0839607933204884, +0.81954491774967581E-1), (+1.2026486715972440, +0.82922908432141795), (+0.11102230246251565E-15, +0.55511151231257827E-16), (+0.33306690738754696E-15, -0.58286708792820718E-15), (+0.33306690738754696E-15, -0.55511151231257827E-16), (+0.55511151231257827E-15, -0.37470027081099033E-15), (-0.44408920985006262E-15, +0.13877787807814457E-15), (+0.33306690738754696E-15, -0.12490009027033011E-15), (+0.22204460492503131E-15, +0.24980018054066022E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (-0.11102230246251565E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, -0.13877787807814457E-15), (+0.22204460492503131E-15, +0.24980018054066022E-15), (+0.22204460492503131E-15, +0.11102230246251565E-15), (-0.33306690738754696E-15, +0.27755575615628914E-15), (+0.33306690738754696E-15, -0.19428902930940239E-15), (+0.33306690738754696E-15, +0.33306690738754696E-15), (+0.66613381477509392E-15, +0.47184478546569153E-15), (+0.11102230246251565E-15, +0.16653345369377348E-15), (+0.55511151231257827E-15, +0.16653345369377348E-15), (-0.11102230246251565E-15, +0.72164496600635175E-15), (+0.33306690738754696E-15, +0.77715611723760958E-15)
246reltol = sqrt(epsilon(1._TKC))
247reltol
248+0.14901161193847656E-7
249isClose(data, atad(1:size(data)), reltol = reltol)
250T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
251call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
252
253lenData = getUnifRand(5, 100)
254lenData
255+83
256data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
257data
258(+1.31385451328043938380388309556697743, +0.214487886554980329542631096005602621), (+1.01483010331557962548347374027306888, +0.253982366561950393652550514488570024), (+1.23358377580013975585876789858609834, +0.186415412299080311740272954731123045E-2), (+1.06576908885823131778345865100705815, +0.693393807011420124352298141044358660), (+1.63653499567573265736267545564312912, +0.757994044881985408247496289040382900), (+1.64378292552883028745917484265282690, +0.646834065999600342309451448162812988), (+1.37668643431137482974005461035833818, +0.839148875517894876734402979459207733), (+1.16327643519104716205232606591452276, +0.247757977437873976557640649155393483), (+1.81448982522303559811172584077160683, +0.327442742517968858546527600757123753), (+1.91023159578874140025878761170896511, +0.691339982060654826020256165452063471), (+1.05889827098759998396692076134391303, +0.187457494294079431185774774697634039), (+1.39820849041136311188978573277145923, +0.348116975170895378163342828847421142), (+1.25341607599535865200094105554042796, +0.793796953728010516032731649708605448), (+1.75775160664775336817493244389265868, +0.716806265230913680118655810674544799), (+1.37138732798318156549598211273220418, +0.801456753273153724043591489863119202), (+1.58133377446215948419294261248393287, +0.152293346298330498094253052438056094), (+1.66781093896405155203829346997543106, +0.650838602994936536798477220196997258), (+1.08840595623579145109367176629227421, +0.630070001929677586479003424266736708), (+1.51608071145501632023446866270504482, +0.195396554190827132786407669284414823), (+1.02283973921004976760169285743053420, +0.459089903765676549306947991813647459E-1), (+1.62266111023861677784527901167357615, +0.660908931307148419681952641888569372), (+1.69735265071668890595206650466801449, +0.515589308301199219725319701987905079), (+1.99852315263540285003064148845331860, +0.500952818269539743493961604768029695E-1), (+1.13616053271783086277193769417385746, +0.688990952270658050056221508794809998), (+1.44749289387244756356273056014301487, +0.932334967458177830649275567515078652), (+1.17873572012014507806473493742830941, +0.972507099749974219078347771571746746), (+1.73635175471696271979916620205696068, +0.514489832987002315826180132009766482), (+1.31975936310108701120810202014972271, +0.430089227749834498565957694487781421E-1), (+1.63781065847702914100942905344363946, +0.961591263119432046017583848436829804E-1), (+1.28076926771431502002955218961222837, +0.985825778107750211604955965400401123), (+1.13609015041804010457585279846598473, +0.473919274403475716607269971265949587), (+1.21497916490837926205822881781675670, +0.436846021985802975774460850139533049), (+1.50637377271737555106846842150262843, +0.136058022858136098909082771388526850), (+1.47235609496761624391158606152194592, +0.514841479190849121271083250209864022), (+1.18512047451308653803768787927775005, +0.708299132072725696516203138725745361), (+1.18237756100198068441181933187641430, +0.666334366764004611329523108462115716), (+1.55625665689227784586890128254331065, +0.424225359298637028183606450318787676), (+1.11947789640007028282664711244369476, +0.104509536450546667518892452248636296), (+1.88957299167603385006216159580476080, +0.493379440494465341500280221894644225), (+1.28374328495800153334803562494207640, +0.669818305552306197745629780548504184), (+1.88581665274495178957358681944549135, +0.828384819315804690192544651798369810), (+1.06163982774785601708980468010934491, +0.383649873665879905098402527960433672), (+1.81528261068552702058889002432308813, +0.343397587194647915662609582933897017), (+1.41171455836192138849391572491907208, +0.821210111459558406283631322264863662), (+1.32071717300472279617696734877176088, +0.209846881406430991649685423330734277), (+1.98128704567442809990478510814653694, +0.131331078950030974825306329901513722), (+1.69737026871119536742215988632959392, +0.395640777318530274265134488262025417), (+1.92934561358953247480268708557679934, +0.984890764173379279395042550247911148), (+1.09970539814376603322676078313858269, +0.301723772936482841850323025224139681), (+1.65288200764782897335222402266717141, +0.801225050249412528172292960006487956), (+1.63561747472609221384876161652257942, +0.535120025105812740867629632312202287), (+1.61786196790193045136087655252355876, +0.366879019044077806525714271499370009), (+1.68405118911560202501260763557296069, +0.237861189138745341692224390448445398), (+1.18410147891446345644396580688230205, +0.262709377911179680693428149182283644), (+1.54671916891574471441402720443649877, +0.256500625832407148666697959808139642), (+1.87852607506980471926347406446461586, +0.286739814271315192810194014417160945), (+1.08415216223788804492463837995620793, +0.296136255821767357036949107152592148), (+1.10773734698340792238451416124348846, +0.964848254461457261566812847576031492), (+1.12161482190171956511923547680737822, +0.398981536820882732164961446064884837), (+1.27541185778253537155271892625474199, +0.210391559507921192242329502310750263), (+1.15532873299705033082925848504433928, +0.923088730072694962893717523189501220), (+1.34603746847780359275484110175594507, +0.232711122637539417773238813033366321), (+1.85333837903886207785948713305858521, +0.991490289540030899506528812446285171), (+1.20493456355422804520740822326867595, +0.868627081821964493318735474541364275), (+1.96434660716219884966085552012482712, +0.350573270564886038904316958386926530), (+1.06420094018029939938128728367807811, +0.673661432407112816321241700658280707), (+1.44693283971088845033850345594993782, +0.876599454735051286649570131466973307), (+1.93024015291349700351184010296197609, +0.883978101539847685248440801725236860), (+1.90438845160852052628540726795871894, +0.765404999211702410607740548659851197E-1), (+1.53258468976971355545113095842038381, +0.707057151046739581474099092402155184), (+1.31479493848246036520684347867999885, +0.599826337732050934478706158205103743), (+1.01046765012604031503543550084039140, +0.564136567197893478981326351172077258), (+1.94336260020885207896710303714239611, +0.815057199543477241309495253827569398), (+1.84222608961441906552089024457228265, +0.327328635981486986828212737040897221), (+1.80870838642635490912110120626106114, +0.658249417606970970717055331111788911), (+1.76822425966317254358028992469574474, +0.854370310538323797881996335906030876), (+1.91572631997194437394293601495336901, +0.846245466624716135696024994998053644), (+1.08324914427196317756089233061171182, +0.882832759899562813517047260731898206E-1), (+1.37682319954345172543996392399061016, +0.757320434344384465515560863414596895), (+1.43032712766988983463738519457161570, +0.291835397101360892752130330538725863), (+1.35711031062983062121212332735939059, +0.500684580013426889664401514211901020), (+1.04197522124396892949933972190941745, +0.741995468932176630741122409309942643E-1), (+1.06598028972968212196535468590154093, +0.836428435404160392285589254323854479)
259
260atad = getFFTR(getFFTF(data))
261atad = atad / size(atad)
262atad
263(+1.31385451328043938380388309556697743, +0.214487886554980329542631096005602573), (+1.01483010331557962548347374027306907, +0.253982366561950393652550514488569639), (+1.23358377580013975585876789858609853, +0.186415412299080311740272954731113415E-2), (+1.06576908885823131778345865100705853, +0.693393807011420124352298141044358371), (+1.63653499567573265736267545564312912, +0.757994044881985408247496289040382900), (+1.64378292552883028745917484265282728, +0.646834065999600342309451448162812603), (+1.37668643431137482974005461035833818, +0.839148875517894876734402979459207637), (+1.16327643519104716205232606591452276, +0.247757977437873976557640649155393315), (+1.81448982522303559811172584077160760, +0.327442742517968858546527600757123849), (+1.91023159578874140025878761170896549, +0.691339982060654826020256165452063375), (+1.05889827098759998396692076134391322, +0.187457494294079431185774774697633943), (+1.39820849041136311188978573277145961, +0.348116975170895378163342828847420998), (+1.25341607599535865200094105554042815, +0.793796953728010516032731649708605641), (+1.75775160664775336817493244389265925, +0.716806265230913680118655810674544510), (+1.37138732798318156549598211273220438, +0.801456753273153724043591489863119106), (+1.58133377446215948419294261248393325, +0.152293346298330498094253052438055709), (+1.66781093896405155203829346997543144, +0.650838602994936536798477220196997065), (+1.08840595623579145109367176629227421, +0.630070001929677586479003424266736708), (+1.51608071145501632023446866270504502, +0.195396554190827132786407669284414679), (+1.02283973921004976760169285743053439, +0.459089903765676549306947991813645052E-1), (+1.62266111023861677784527901167357634, +0.660908931307148419681952641888569372), (+1.69735265071668890595206650466801449, +0.515589308301199219725319701987904886), (+1.99852315263540285003064148845331899, +0.500952818269539743493961604768028251E-1), (+1.13616053271783086277193769417385746, +0.688990952270658050056221508794809902), (+1.44749289387244756356273056014301526, +0.932334967458177830649275567515078748), (+1.17873572012014507806473493742830941, +0.972507099749974219078347771571747035), (+1.73635175471696271979916620205696106, +0.514489832987002315826180132009766579), (+1.31975936310108701120810202014972329, +0.430089227749834498565957694487780459E-1), (+1.63781065847702914100942905344363946, +0.961591263119432046017583848436830888E-1), (+1.28076926771431502002955218961222837, +0.985825778107750211604955965400401412), (+1.13609015041804010457585279846598492, +0.473919274403475716607269971265949298), (+1.21497916490837926205822881781675708, +0.436846021985802975774460850139533049), (+1.50637377271737555106846842150262843, +0.136058022858136098909082771388526802), (+1.47235609496761624391158606152194611, +0.514841479190849121271083250209864118), (+1.18512047451308653803768787927775043, +0.708299132072725696516203138725745458), (+1.18237756100198068441181933187641468, +0.666334366764004611329523108462116005), (+1.55625665689227784586890128254331084, +0.424225359298637028183606450318787869), (+1.11947789640007028282664711244369476, +0.104509536450546667518892452248636248), (+1.88957299167603385006216159580476080, +0.493379440494465341500280221894644033), (+1.28374328495800153334803562494207678, +0.669818305552306197745629780548504184), (+1.88581665274495178957358681944549173, +0.828384819315804690192544651798370003), (+1.06163982774785601708980468010934529, +0.383649873665879905098402527960433720), (+1.81528261068552702058889002432308871, +0.343397587194647915662609582933897210), (+1.41171455836192138849391572491907266, +0.821210111459558406283631322264863951), (+1.32071717300472279617696734877176126, +0.209846881406430991649685423330734518), (+1.98128704567442809990478510814653752, +0.131331078950030974825306329901513770), (+1.69737026871119536742215988632959430, +0.395640777318530274265134488262025609), (+1.92934561358953247480268708557679973, +0.984890764173379279395042550247911533), (+1.09970539814376603322676078313858288, +0.301723772936482841850323025224139729), (+1.65288200764782897335222402266717180, +0.801225050249412528172292960006488148), (+1.63561747472609221384876161652258000, +0.535120025105812740867629632312202383), (+1.61786196790193045136087655252355915, +0.366879019044077806525714271499370009), (+1.68405118911560202501260763557296088, +0.237861189138745341692224390448445446), (+1.18410147891446345644396580688230205, +0.262709377911179680693428149182283644), (+1.54671916891574471441402720443649916, +0.256500625832407148666697959808139497), (+1.87852607506980471926347406446461624, +0.286739814271315192810194014417160752), (+1.08415216223788804492463837995620793, +0.296136255821767357036949107152592051), (+1.10773734698340792238451416124348884, +0.964848254461457261566812847576031973), (+1.12161482190171956511923547680737822, +0.398981536820882732164961446064884982), (+1.27541185778253537155271892625474237, +0.210391559507921192242329502310750191), (+1.15532873299705033082925848504433928, +0.923088730072694962893717523189501605), (+1.34603746847780359275484110175594526, +0.232711122637539417773238813033366417), (+1.85333837903886207785948713305858541, +0.991490289540030899506528812446285749), (+1.20493456355422804520740822326867634, +0.868627081821964493318735474541364853), (+1.96434660716219884966085552012482712, +0.350573270564886038904316958386926481), (+1.06420094018029939938128728367807830, +0.673661432407112816321241700658280996), (+1.44693283971088845033850345594993762, +0.876599454735051286649570131466973307), (+1.93024015291349700351184010296197667, +0.883978101539847685248440801725237149), (+1.90438845160852052628540726795871913, +0.765404999211702410607740548659850716E-1), (+1.53258468976971355545113095842038420, +0.707057151046739581474099092402155473), (+1.31479493848246036520684347867999866, +0.599826337732050934478706158205103647), (+1.01046765012604031503543550084039140, +0.564136567197893478981326351172077450), (+1.94336260020885207896710303714239649, +0.815057199543477241309495253827569590), (+1.84222608961441906552089024457228284, +0.327328635981486986828212737040897317), (+1.80870838642635490912110120626106095, +0.658249417606970970717055331111789200), (+1.76822425966317254358028992469574512, +0.854370310538323797881996335906031550), (+1.91572631997194437394293601495336901, +0.846245466624716135696024994998053740), (+1.08324914427196317756089233061171162, +0.882832759899562813517047260731899650E-1), (+1.37682319954345172543996392399060997, +0.757320434344384465515560863414597376), (+1.43032712766988983463738519457161570, +0.291835397101360892752130330538726200), (+1.35711031062983062121212332735939079, +0.500684580013426889664401514211901116), (+1.04197522124396892949933972190941745, +0.741995468932176630741122409309943606E-1), (+1.06598028972968212196535468590154055, +0.836428435404160392285589254323854672), (-0.288889491658085377958396691387739098E-33, +0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-33), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.577778983316170755916793382775478196E-33, -0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, +0.361111864572606722447995864234673872E-34), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, +0.120370621524202240815998621411557957E-33), (-0.674075480535532548569592279904724561E-33, -0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, -0.240741243048404481631997242823115915E-33), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.722223729145213444895991728469347744E-34), (-0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.674075480535532548569592279904724561E-33, +0.240741243048404481631997242823115915E-34), (-0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (+0.385185988877447170611195588516985464E-33, -0.288889491658085377958396691387739098E-33), (-0.192592994438723585305597794258492732E-33, -0.385185988877447170611195588516985464E-33), (-0.577778983316170755916793382775478196E-33, -0.409260113182287618774395312799297055E-33), (-0.192592994438723585305597794258492732E-33, -0.433334237487128066937595037081608647E-33), (-0.192592994438723585305597794258492732E-33, -0.144444745829042688979198345693869549E-33), (-0.577778983316170755916793382775478196E-33, -0.529630734706489859590393934210855013E-33), (-0.577778983316170755916793382775478196E-33, -0.192592994438723585305597794258492732E-33), (-0.674075480535532548569592279904724561E-33, -0.529630734706489859590393934210855013E-33), (+0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.481482486096808963263994485646231830E-33, -0.409260113182287618774395312799297055E-33), (-0.288889491658085377958396691387739098E-33, +0.601853107621011204079993107057789787E-34), (-0.577778983316170755916793382775478196E-33, -0.361111864572606722447995864234673872E-33), (-0.481482486096808963263994485646231830E-33, -0.481482486096808963263994485646231830E-34), (-0.481482486096808963263994485646231830E-33, -0.144444745829042688979198345693869549E-33), (+0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (-0.962964972193617926527988971292463659E-34, -0.529630734706489859590393934210855013E-33), (-0.962964972193617926527988971292463659E-34, -0.337037740267766274284796139952362281E-33), (-0.385185988877447170611195588516985464E-33, -0.361111864572606722447995864234673872E-33), (-0.288889491658085377958396691387739098E-33, -0.144444745829042688979198345693869549E-33), (-0.481482486096808963263994485646231830E-33, -0.686112542687952772651192142045880357E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-33), (-0.288889491658085377958396691387739098E-33, -0.625927231925851652243192831340101379E-33)
264reltol = sqrt(epsilon(1._TKC))
265reltol
266+0.138777878078144567552953958511352539E-16
267isClose(data, atad(1:size(data)), reltol = reltol)
268T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
269call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
270
271lenData = getUnifRand(5, 100)
272lenData
273+45
274data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
275data
276+1.17626905, +1.37612319, +1.87656641, +1.48429394, +1.72631741, +1.04335546, +1.06653392, +1.73138976, +1.60419428, +1.82114100, +1.08842587, +1.09354055, +1.20403600, +1.56657863, +1.56385422, +1.92610621, +1.51748252, +1.42872906, +1.75656104, +1.16019893, +1.52325928, +1.00838876, +1.57282877, +1.60804367, +1.74339461, +1.30537200, +1.20380878, +1.14656901, +1.64400661, +1.33318281, +1.28177857, +1.66746199, +1.14178789, +1.98505986, +1.90632844, +1.56281710, +1.08209300, +1.96484149, +1.45880568, +1.80297601, +1.51597810, +1.49224782, +1.31285226, +1.18296695, +1.95008659
277
278atad = getFFTR(getFFTF(data))
279atad = atad * 2 / size(atad)
280atad
281+1.17626929, +1.37612331, +1.87656641, +1.48429382, +1.72631729, +1.04335558, +1.06653380, +1.73138952, +1.60419452, +1.82114112, +1.08842576, +1.09354055, +1.20403576, +1.56657863, +1.56385398, +1.92610598, +1.51748276, +1.42872906, +1.75656104, +1.16019869, +1.52325928, +1.00838876, +1.57282865, +1.60804367, +1.74339461, +1.30537212, +1.20380878, +1.14656901, +1.64400661, +1.33318281, +1.28177845, +1.66746199, +1.14178824, +1.98505986, +1.90632844, +1.56281698, +1.08209312, +1.96484125, +1.45880580, +1.80297565, +1.51597846, +1.49224770, +1.31285226, +1.18296683, +1.95008659, +0.596046448E-7, +0.476837158E-6, +0.238418579E-6, +0.178813934E-6, +0.119209290E-6, +0.00000000, +0.178813934E-6, +0.119209290E-6, -0.178813934E-6, +0.119209290E-6, +0.596046448E-7, +0.298023224E-6, +0.238418579E-6, -0.596046448E-7, +0.238418579E-6, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, +0.119209290E-6
282reltol = sqrt(epsilon(1._TKC))
283reltol
284+0.345266977E-3
285isClose(data, atad(1:size(data)), reltol = reltol)
286T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
287call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
288
289lenData = getUnifRand(5, 100)
290lenData
291+52
292data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
293data
294+1.9193541618829011, +1.6758404757959620, +1.3287200298625466, +1.1166145310158919, +1.6482306491770755, +1.3822101610292030, +1.4163438840316656, +1.8312537337192314, +1.2309285513011152, +1.0700847886510862, +1.2413316454800585, +1.7866696432519040, +1.2118388818973020, +1.1643267758150457, +1.8920348033143326, +1.0611247243180331, +1.5825434840119637, +1.7873321460757619, +1.6992066308485296, +1.9736619014099759, +1.8716784685480672, +1.0756002084574496, +1.6193994800050824, +1.0867693705418997, +1.4429889600268830, +1.1394507028398815, +1.4380873087253145, +1.2243169851079996, +1.7397022248311638, +1.4965725550385161, +1.1554430057345653, +1.5324581497221068, +1.0942656143179623, +1.2050318693416320, +1.9420469176336179, +1.5952905720954496, +1.3481188217764406, +1.3269850074657454, +1.4810987238461832, +1.2597350630108783, +1.7108793137515401, +1.6765073840005567, +1.9009241891371520, +1.0015775931851494, +1.1104176817075415, +1.4435200186883987, +1.7815113209248645, +1.4518098601248268, +1.9591434175406102, +1.6307997574054045, +1.3723966767802978, +1.8033640873982320
295
296atad = getFFTR(getFFTF(data))
297atad = atad * 2 / size(atad)
298atad
299+1.9193541618829011, +1.6758404757959622, +1.3287200298625468, +1.1166145310158928, +1.6482306491770753, +1.3822101610292028, +1.4163438840316658, +1.8312537337192314, +1.2309285513011152, +1.0700847886510858, +1.2413316454800585, +1.7866696432519040, +1.2118388818973018, +1.1643267758150453, +1.8920348033143322, +1.0611247243180331, +1.5825434840119637, +1.7873321460757619, +1.6992066308485299, +1.9736619014099761, +1.8716784685480667, +1.0756002084574496, +1.6193994800050824, +1.0867693705418995, +1.4429889600268830, +1.1394507028398813, +1.4380873087253141, +1.2243169851079998, +1.7397022248311627, +1.4965725550385156, +1.1554430057345650, +1.5324581497221064, +1.0942656143179623, +1.2050318693416320, +1.9420469176336179, +1.5952905720954500, +1.3481188217764404, +1.3269850074657452, +1.4810987238461835, +1.2597350630108783, +1.7108793137515399, +1.6765073840005562, +1.9009241891371520, +1.0015775931851501, +1.1104176817075413, +1.4435200186883985, +1.7815113209248645, +1.4518098601248268, +1.9591434175406102, +1.6307997574054043, +1.3723966767802984, +1.8033640873982322, +0.44408920985006262E-15, -0.11102230246251565E-15, +0.11102230246251565E-14, +0.22204460492503131E-15, +0.55511151231257827E-15, +0.0000000000000000, +0.99920072216264089E-15, +0.88817841970012523E-15, +0.22204460492503131E-15, +0.22204460492503131E-15, +0.88817841970012523E-15, +0.12212453270876722E-14
300reltol = sqrt(epsilon(1._TKC))
301reltol
302+0.14901161193847656E-7
303isClose(data, atad(1:size(data)), reltol = reltol)
304T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
305call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
306
307lenData = getUnifRand(5, 100)
308lenData
309+29
310data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
311data
312+1.28771015477262070233422289488674870, +1.47523356539154843677973665961970246, +1.80550684349359405584679551521250748, +1.62235162958463789750819395447226011, +1.87775542975761630276659615742320030, +1.81720516141138706816465514455253635, +1.03311635158623926012648861156037818, +1.55582152098841563810784376859625415, +1.06171073620508221267204297232440459, +1.79857995490649038899297633645119645, +1.71710953396410705722278129841914348, +1.63917088338412206657976347806814404, +1.38711862690124397156899000507143650, +1.15556994464937025812043377528238356, +1.27771425579897823621638375879117408, +1.51915555689203703305110372668064932, +1.28813178338047961483197946303264764, +1.12142436414141201782126462245923632, +1.35459828560584004760832732533121893, +1.14011153363960104467588200718452752, +1.38060832022335440386587723320166385, +1.20899036806693450413290820077068155, +1.02562897434352769765987084498358061, +1.32633656106589595108239013278548928, +1.38668468892087415304447634057179773, +1.83127274513639447902880016797211971, +1.60832296858511399100513586193704183, +1.06682486101688300751597383899650697, +1.12081600089502277640084500499955857
313
314atad = getFFTR(getFFTF(data))
315atad = atad * 2 / size(atad)
316atad
317+1.28771015477262070233422289488674870, +1.47523356539154843677973665961970285, +1.80550684349359405584679551521250806, +1.62235162958463789750819395447226049, +1.87775542975761630276659615742320030, +1.81720516141138706816465514455253673, +1.03311635158623926012648861156037818, +1.55582152098841563810784376859625434, +1.06171073620508221267204297232440440, +1.79857995490649038899297633645119665, +1.71710953396410705722278129841914348, +1.63917088338412206657976347806814443, +1.38711862690124397156899000507143688, +1.15556994464937025812043377528238395, +1.27771425579897823621638375879117447, +1.51915555689203703305110372668064951, +1.28813178338047961483197946303264764, +1.12142436414141201782126462245923651, +1.35459828560584004760832732533121932, +1.14011153363960104467588200718452771, +1.38060832022335440386587723320166424, +1.20899036806693450413290820077068193, +1.02562897434352769765987084498358080, +1.32633656106589595108239013278548947, +1.38668468892087415304447634057179734, +1.83127274513639447902880016797211990, +1.60832296858511399100513586193704164, +1.06682486101688300751597383899650716, +1.12081600089502277640084500499955857, +0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33, -0.192592994438723585305597794258492732E-33
318reltol = sqrt(epsilon(1._TKC))
319reltol
320+0.138777878078144567552953958511352539E-16
321isClose(data, atad(1:size(data)), reltol = reltol)
322T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
323call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
324
325lenData = getUnifRand(5, 100)
326lenData
327+34
328data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
329data
330(+1.20151019, +0.713206589), (+1.50145781, +0.416628182), (+1.90462232, +0.248837113), (+1.92168427, +0.676250696), (+1.57984710, +0.524209619), (+1.51962423, +0.558472872), (+1.26875031, +0.375000179), (+1.57858348, +0.131082118), (+1.83071947, +0.664279401), (+1.22457123, +0.452685952), (+1.40423751, +0.507048368E-1), (+1.50159621, +0.706853628), (+1.81519914, +0.309979975), (+1.55976558, +0.791825950), (+1.43835568, +0.873217702), (+1.31190276, +0.782914817), (+1.61431384, +0.773213923), (+1.01148403, +0.635267735), (+1.08569849, +0.657275677), (+1.02217579, +0.263636649), (+1.80852091, +0.449931443), (+1.36902380, +0.670430064), (+1.49988627, +0.741566122), (+1.02463365, +0.573446810), (+1.30502582, +0.809504092), (+1.80529833, +0.647877812), (+1.66763163, +0.848354459), (+1.92250848, +0.802526593), (+1.49127436, +0.610265553), (+1.50577092, +0.900324106), (+1.75950062, +0.783114552), (+1.40790391, +0.853399456), (+1.40694308, +0.365194082), (+1.92893457, +0.823996007)
331
332atad = getFFTR(getFFTF(data))
333atad = atad / size(atad)
334atad
335(+1.20151007, +0.713206470), (+1.50145745, +0.416628212), (+1.90462208, +0.248837054), (+1.92168379, +0.676250458), (+1.57984710, +0.524209619), (+1.51962399, +0.558472753), (+1.26875031, +0.375000119), (+1.57858336, +0.131081954), (+1.83071923, +0.664279580), (+1.22457099, +0.452686012), (+1.40423727, +0.507048368E-1), (+1.50159621, +0.706853509), (+1.81519914, +0.309980333), (+1.55976546, +0.791826129), (+1.43835568, +0.873217642), (+1.31190276, +0.782914877), (+1.61431360, +0.773213863), (+1.01148391, +0.635267615), (+1.08569837, +0.657275558), (+1.02217579, +0.263636529), (+1.80852103, +0.449931502), (+1.36902356, +0.670429945), (+1.49988616, +0.741566181), (+1.02463341, +0.573446691), (+1.30502558, +0.809503973), (+1.80529785, +0.647877693), (+1.66763139, +0.848354220), (+1.92250824, +0.802526355), (+1.49127400, +0.610265613), (+1.50577044, +0.900324106), (+1.75950050, +0.783114672), (+1.40790379, +0.853399277), (+1.40694296, +0.365194142), (+1.92893434, +0.823995709), (+0.178813934E-6, +0.670552254E-7), (+0.298023224E-6, +0.149011612E-6), (-0.119209290E-6, +0.00000000), (+0.596046448E-7, -0.596046448E-7), (+0.119209290E-6, +0.134110451E-6), (-0.119209290E-6, +0.745058060E-7), (+0.596046448E-7, -0.149011612E-6), (+0.00000000, +0.00000000), (+0.178813934E-6, +0.596046448E-7), (+0.00000000, -0.894069672E-7), (-0.238418579E-6, -0.312924385E-6), (+0.119209290E-6, -0.208616257E-6), (+0.119209290E-6, +0.00000000), (+0.596046448E-7, -0.119209290E-6), (-0.178813934E-6, +0.298023224E-7), (+0.596046448E-7, +0.596046448E-7), (+0.596046448E-7, +0.119209290E-6), (-0.596046448E-7, +0.134110451E-6), (-0.596046448E-7, -0.149011612E-7), (+0.596046448E-7, +0.298023224E-7), (+0.119209290E-6, +0.00000000), (+0.00000000, +0.596046448E-7), (+0.119209290E-6, +0.596046448E-7), (+0.178813934E-6, +0.298023224E-7), (+0.00000000, +0.208616257E-6), (+0.596046448E-7, +0.119209290E-6), (+0.119209290E-6, -0.119209290E-6), (+0.238418579E-6, +0.298023224E-7), (+0.178813934E-6, -0.298023224E-7), (+0.00000000, +0.149011612E-6)
336reltol = sqrt(epsilon(1._TKC))
337reltol
338+0.345266977E-3
339isClose(data, atad(1:size(data)), reltol = reltol)
340T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
341call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
342
343lenData = getUnifRand(5, 100)
344lenData
345+53
346data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
347data
348(+1.5516361328030195, +0.70919791260129106), (+1.6655390787979296, +0.68394792165908669), (+1.0267633534301270, +0.81884693333988479), (+1.4656943734632888, +0.21359469060409020), (+1.5209615100386427, +0.61246318139103995), (+1.4012683369196410, +0.26486130157577059E-1), (+1.2530222082287867, +0.43795734854408352), (+1.0877471494614630, +0.85224978183196776), (+1.3979983435155070, +0.26785998573295866), (+1.6177597122158405, +0.67054654025470861), (+1.8462232376386991, +0.46034821980632434), (+1.6446837198877651, +0.45003275468558901), (+1.7532215847897579, +0.30021962796341140), (+1.4502938177633951, +0.12766790705743025), (+1.5504074910216523, +0.68252355602509074), (+1.1905902039020368, +0.98984835059529530), (+1.6952386548763194, +0.86179147926882749E-1), (+1.9372156005262400, +0.76558594774461830), (+1.4672015648439896, +0.95057916888453831), (+1.2446390453403078, +0.20864035197509123E-1), (+1.8379034774237306, +0.75085937019056592), (+1.8198063019249466, +0.69034690297492463), (+1.6073123160913205, +0.45540015925116883), (+1.9737641314020378, +0.48338274937336911), (+1.9856609002604286, +0.78178247147629931), (+1.0874217306557781, +0.43310859026034876), (+1.3452628339705170, +0.13574332279843582), (+1.7726505964997263, +0.63134744615039762E-1), (+1.0526905085172460, +0.76905437823250811), (+1.1642838717947526, +0.27015942089127953), (+1.8451460777438813, +0.66994743263666123), (+1.6599047149740165, +0.16482321040939940), (+1.3041892727868614, +0.17920515162135708), (+1.1629971650839048, +0.39713121961852205), (+1.0791983124387876, +0.37727657369553236), (+1.1503668511837266, +0.38749694088105058), (+1.3985549198814942, +0.53962207902050341), (+1.0091392350765167, +0.10152117898197810E-2), (+1.9880783298066653, +0.59614031223628816), (+1.8761429770740907, +0.39521248693176658), (+1.7858719029673682, +0.52683694647166146), (+1.0971142174835267, +0.71661432830782068), (+1.8786526932369054, +0.65989569339752074), (+1.1874129926930599, +0.95586979860311949), (+1.0834606799363018, +0.86310117612204518), (+1.8344702764875915, +0.87284526937167095), (+1.7881316111529122, +0.34618830425287739), (+1.4521149503501218, +0.71376400843176024), (+1.1700610738763286, +0.27810070004612109E-1), (+1.7909261914473675, +0.76670483122764777), (+1.2842421789497123, +0.50974495398203967), (+1.8299920065596291, +0.35935714000892993), (+1.9481908314737537, +0.17583169222137862)
349
350atad = getFFTR(getFFTF(data))
351atad = atad / size(atad)
352atad
353(+1.5516361328030195, +0.70919791260129106), (+1.6655390787979294, +0.68394792165908691), (+1.0267633534301273, +0.81884693333988512), (+1.4656943734632886, +0.21359469060409042), (+1.5209615100386424, +0.61246318139103995), (+1.4012683369196413, +0.26486130157577031E-1), (+1.2530222082287870, +0.43795734854408358), (+1.0877471494614630, +0.85224978183196809), (+1.3979983435155072, +0.26785998573295899), (+1.6177597122158398, +0.67054654025470894), (+1.8462232376386987, +0.46034821980632457), (+1.6446837198877649, +0.45003275468558929), (+1.7532215847897574, +0.30021962796341167), (+1.4502938177633948, +0.12766790705743042), (+1.5504074910216523, +0.68252355602509096), (+1.1905902039020371, +0.98984835059529541), (+1.6952386548763192, +0.86179147926882721E-1), (+1.9372156005262398, +0.76558594774461830), (+1.4672015648439900, +0.95057916888453831), (+1.2446390453403078, +0.20864035197509595E-1), (+1.8379034774237306, +0.75085937019056592), (+1.8198063019249469, +0.69034690297492474), (+1.6073123160913210, +0.45540015925116861), (+1.9737641314020373, +0.48338274937336906), (+1.9856609002604289, +0.78178247147629920), (+1.0874217306557781, +0.43310859026034865), (+1.3452628339705173, +0.13574332279843607), (+1.7726505964997257, +0.63134744615039706E-1), (+1.0526905085172462, +0.76905437823250788), (+1.1642838717947526, +0.27015942089127959), (+1.8451460777438813, +0.66994743263666079), (+1.6599047149740160, +0.16482321040939935), (+1.3041892727868616, +0.17920515162135708), (+1.1629971650839046, +0.39713121961852194), (+1.0791983124387876, +0.37727657369553252), (+1.1503668511837268, +0.38749694088105036), (+1.3985549198814937, +0.53962207902050330), (+1.0091392350765169, +0.10152117898196977E-2), (+1.9880783298066651, +0.59614031223628849), (+1.8761429770740907, +0.39521248693176642), (+1.7858719029673684, +0.52683694647166135), (+1.0971142174835260, +0.71661432830782046), (+1.8786526932369050, +0.65989569339752052), (+1.1874129926930597, +0.95586979860311860), (+1.0834606799363016, +0.86310117612204484), (+1.8344702764875909, +0.87284526937167084), (+1.7881316111529120, +0.34618830425287739), (+1.4521149503501218, +0.71376400843175991), (+1.1700610738763286, +0.27810070004612192E-1), (+1.7909261914473673, +0.76670483122764788), (+1.2842421789497127, +0.50974495398203945), (+1.8299920065596296, +0.35935714000892960), (+1.9481908314737537, +0.17583169222137868), (-0.44408920985006262E-15, -0.16653345369377348E-15), (+0.44408920985006262E-15, +0.36082248300317588E-15), (+0.55511151231257827E-15, -0.55511151231257827E-16), (+0.22204460492503131E-15, +0.22204460492503131E-15), (+0.0000000000000000, +0.27755575615628914E-16), (+0.66613381477509392E-15, +0.24980018054066022E-15), (+0.77715611723760958E-15, +0.27755575615628914E-15), (+0.44408920985006262E-15, +0.0000000000000000), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.44408920985006262E-15, +0.44408920985006262E-15), (+0.77715611723760958E-15, +0.62450045135165055E-15)
354reltol = sqrt(epsilon(1._TKC))
355reltol
356+0.14901161193847656E-7
357isClose(data, atad(1:size(data)), reltol = reltol)
358T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
359call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
360
361lenData = getUnifRand(5, 100)
362lenData
363+41
364data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
365data
366(+1.73318537218777282200434680680230353, +0.110063248175063818577711601959670231), (+1.88944765011660584870290406593747172, +0.566291184250204545156708376255616473), (+1.26326559659301938714315510377218137, +0.636922281064769297058530542471659825), (+1.03605205587809442517161129141490985, +0.486178676017372325108857569041885764), (+1.51945964079423112795830913505117272, +0.754431782976657734996035196884364150), (+1.63645872969954582129943244266303934, +0.737998305118935608351404283307465841), (+1.11971789344079494338157331802881378, +0.577786029459752701391298096695803594), (+1.43883416737283554301507200402374579, +0.166922229244114826351339115444139660), (+1.25775320174069739158569324062349089, +0.117303786525636293285061948539399301), (+1.03527330483911071964004447016871821, +0.933727422466706983857395783810772029), (+1.26499100976241352707182362489615762, +0.591954008210558994629953598307029726), (+1.57173483181452003701564275429883188, +0.964892497612780104471195916348095001), (+1.90706992100252155327798233036197349, +0.429284175644767155445606436453968848), (+1.81401189889899355437017590443949571, +0.312639724589328559126854620973681241), (+1.99445786326005959435891679951958066, +0.774366219131025911933997860414447881), (+1.37015913062631833791231782300123655, +0.219057927708143215272247320541078539), (+1.43830420401126475047407518149004848, +0.571881045021618674629705322237002529), (+1.93844296574058507108384752092148364, +0.278958596585325616777685395438696173), (+1.90157454400480256782509325567780173, +0.201673900164881538088701872412678442), (+1.21362725016347960661910335272347380, +0.181116913997142298215973218512204835), (+1.77043661913201145107689910798835777, +0.948018295797453320031418031364725210), (+1.40617277085138025654599400970692903, +0.404694444791773879153600890764787171), (+1.29763233108154924721169244935046561, +0.904132382969572260323362928987127582), (+1.96321958283268490106144082201557694, +0.726263485970368408450828896165134265), (+1.70455321504596935481998645435431605, +0.174754321910296773828580268340261855), (+1.06086588392194374362722678259604828, +0.633507234398124851471168101117120620), (+1.96113060927315435046392342621720636, +0.251423422915473107999489974280862025), (+1.50816721892695082525177225582867432, +0.921278207383529672506762605022535001), (+1.76591208932978739230743759181634530, +0.884341033243055377586265659627338454), (+1.55863843608599685402605137104103961, +0.301966117339344987800766699429423438), (+1.60995344321167851712265908258285203, +0.959286114444551810701490509629154310), (+1.01601646725028858119616156496894106, +0.934475438496426545569975221602786078), (+1.95345102695777354444932314238929062, +0.939793597337902628018720475477572754), (+1.65162761621276976898879368610705803, +0.594619735645312356234718886994814562), (+1.49773852763869952503734957531818346, +0.901496647081944671920839294312483683), (+1.48210422308894275462689151752340914, +0.978833507417216194553452691019126063), (+1.60146809434164344563742115769946427, +0.909341653572216641129291454828336913), (+1.02808972329457666247020598792854555, +0.839106917508420587133572662243848537), (+1.41109251896260880677281211377970675, +0.891707555354362133571836362395810636), (+1.31158308752486120669865799948523673, +0.166746196646061380187999413583956573), (+1.69804875520418180970667807961017936, +0.497671500908507229193909482480619135)
367
368atad = getFFTR(getFFTF(data))
369atad = atad / size(atad)
370atad
371(+1.73318537218777282200434680680230391, +0.110063248175063818577711601959670135), (+1.88944765011660584870290406593747172, +0.566291184250204545156708376255616666), (+1.26326559659301938714315510377218098, +0.636922281064769297058530542471659729), (+1.03605205587809442517161129141490965, +0.486178676017372325108857569041885957), (+1.51945964079423112795830913505117311, +0.754431782976657734996035196884364054), (+1.63645872969954582129943244266303973, +0.737998305118935608351404283307465744), (+1.11971789344079494338157331802881397, +0.577786029459752701391298096695803305), (+1.43883416737283554301507200402374579, +0.166922229244114826351339115444139419), (+1.25775320174069739158569324062349070, +0.117303786525636293285061948539399204), (+1.03527330483911071964004447016871860, +0.933727422466706983857395783810772222), (+1.26499100976241352707182362489615723, +0.591954008210558994629953598307029726), (+1.57173483181452003701564275429883149, +0.964892497612780104471195916348094904), (+1.90706992100252155327798233036197368, +0.429284175644767155445606436453969233), (+1.81401189889899355437017590443949609, +0.312639724589328559126854620973681433), (+1.99445786326005959435891679951958104, +0.774366219131025911933997860414448073), (+1.37015913062631833791231782300123655, +0.219057927708143215272247320541078756), (+1.43830420401126475047407518149004867, +0.571881045021618674629705322237002529), (+1.93844296574058507108384752092148364, +0.278958596585325616777685395438696173), (+1.90157454400480256782509325567780134, +0.201673900164881538088701872412678225), (+1.21362725016347960661910335272347380, +0.181116913997142298215973218512204762), (+1.77043661913201145107689910798835815, +0.948018295797453320031418031364725403), (+1.40617277085138025654599400970692923, +0.404694444791773879153600890764787171), (+1.29763233108154924721169244935046581, +0.904132382969572260323362928987127679), (+1.96321958283268490106144082201557694, +0.726263485970368408450828896165134169), (+1.70455321504596935481998645435431585, +0.174754321910296773828580268340261710), (+1.06086588392194374362722678259604847, +0.633507234398124851471168101117120428), (+1.96113060927315435046392342621720616, +0.251423422915473107999489974280861736), (+1.50816721892695082525177225582867432, +0.921278207383529672506762605022534616), (+1.76591208932978739230743759181634530, +0.884341033243055377586265659627338454), (+1.55863843608599685402605137104103961, +0.301966117339344987800766699429423535), (+1.60995344321167851712265908258285203, +0.959286114444551810701490509629154021), (+1.01601646725028858119616156496894087, +0.934475438496426545569975221602786174), (+1.95345102695777354444932314238929062, +0.939793597337902628018720475477572850), (+1.65162761621276976898879368610705803, +0.594619735645312356234718886994814658), (+1.49773852763869952503734957531818346, +0.901496647081944671920839294312483491), (+1.48210422308894275462689151752340933, +0.978833507417216194553452691019125967), (+1.60146809434164344563742115769946427, +0.909341653572216641129291454828337299), (+1.02808972329457666247020598792854535, +0.839106917508420587133572662243849019), (+1.41109251896260880677281211377970656, +0.891707555354362133571836362395811021), (+1.31158308752486120669865799948523673, +0.166746196646061380187999413583956525), (+1.69804875520418180970667807961017917, +0.497671500908507229193909482480619135), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, -0.722223729145213444895991728469347744E-34), (-0.481482486096808963263994485646231830E-33, +0.00000000000000000000000000000000000), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (+0.962964972193617926527988971292463659E-34, +0.312963615962925826121596415670050689E-33), (+0.962964972193617926527988971292463659E-34, -0.120370621524202240815998621411557957E-33), (-0.962964972193617926527988971292463659E-34, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.312963615962925826121596415670050689E-33), (-0.192592994438723585305597794258492732E-33, -0.481482486096808963263994485646231830E-34), (-0.288889491658085377958396691387739098E-33, -0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, +0.144444745829042688979198345693869549E-33), (+0.192592994438723585305597794258492732E-33, +0.144444745829042688979198345693869549E-33), (-0.962964972193617926527988971292463659E-34, +0.361111864572606722447995864234673872E-33), (-0.962964972193617926527988971292463659E-34, +0.385185988877447170611195588516985464E-33), (+0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.288889491658085377958396691387739098E-33), (-0.962964972193617926527988971292463659E-34, +0.00000000000000000000000000000000000), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000)
372reltol = sqrt(epsilon(1._TKC))
373reltol
374+0.138777878078144567552953958511352539E-16
375isClose(data, atad(1:size(data)), reltol = reltol)
376T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
377call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
378
379lenData = getUnifRand(5, 100)
380lenData
381+46
382data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
383data
384+1.83680177, +1.90324152, +1.72813129, +1.45019746, +1.19625854, +1.78473186, +1.05165315, +1.02831340, +1.25383699, +1.43471289, +1.30840635, +1.45501053, +1.41798973, +1.18272567, +1.75698149, +1.91292691, +1.25590301, +1.37906289, +1.05344844, +1.43304861, +1.35618949, +1.18425846, +1.69624352, +1.11822796, +1.00088179, +1.04503870, +1.41284704, +1.80267358, +1.00248265, +1.66211867, +1.68225145, +1.90593100, +1.87307823, +1.54975820, +1.39354229, +1.31735492, +1.61281323, +1.35202026, +1.23006296, +1.16277766, +1.44176042, +1.92014587, +1.53306043, +1.64885700, +1.10404861, +1.16597414
385
386atad = getFFTR(getFFTF(data))
387atad = atad * 2 / size(atad)
388atad
389+1.83680177, +1.90324140, +1.72813106, +1.45019722, +1.19625819, +1.78473163, +1.05165303, +1.02831304, +1.25383699, +1.43471265, +1.30840635, +1.45501006, +1.41798973, +1.18272555, +1.75698113, +1.91292644, +1.25590312, +1.37906265, +1.05344820, +1.43304849, +1.35618937, +1.18425822, +1.69624329, +1.11822772, +1.00088155, +1.04503870, +1.41284680, +1.80267322, +1.00248241, +1.66211843, +1.68225121, +1.90593052, +1.87307811, +1.54975820, +1.39354205, +1.31735468, +1.61281312, +1.35202003, +1.23006308, +1.16277754, +1.44176042, +1.92014575, +1.53306055, +1.64885676, +1.10404873, +1.16597402, +0.119209290E-6, +0.596046448E-7, +0.119209290E-6, +0.596046448E-7, +0.00000000, +0.178813934E-6, +0.119209290E-6, +0.596046448E-7, +0.596046448E-7, +0.00000000, +0.119209290E-6, +0.178813934E-6, -0.119209290E-6, -0.119209290E-6, +0.00000000, -0.596046448E-7, +0.119209290E-6, -0.178813934E-6
390reltol = sqrt(epsilon(1._TKC))
391reltol
392+0.345266977E-3
393isClose(data, atad(1:size(data)), reltol = reltol)
394T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
395call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
396
397lenData = getUnifRand(5, 100)
398lenData
399+97
400data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
401data
402+1.6924669040082811, +1.4212899629908420, +1.5289351777930777, +1.9254087393699917, +1.6359652064212045, +1.4438836374210515, +1.2965092391128219, +1.1976481181008896, +1.0898623676229147, +1.9990751824439137, +1.1425045988053339, +1.4385999261077740, +1.7399921764900337, +1.2436957685604231, +1.7158451328639668, +1.9525733782716246, +1.6228113642850168, +1.4726272899892825, +1.8814698704468793, +1.6105665336426001, +1.3387339633497692, +1.0294328500118954, +1.3270452213758497, +1.5594497228949677, +1.9225224199879696, +1.0815063855446092, +1.3640128456434679, +1.3349959894582495, +1.6451121614078008, +1.8127995683184654, +1.6534758984829394, +1.8459554513985164, +1.7776169914163025, +1.3744414124425544, +1.9081194639008574, +1.4386860776910768, +1.4089450477077383, +1.8684780505438257, +1.6024669661254070, +1.9284318070441016, +1.7637377736372479, +1.5493387660852749, +1.5789121009488241, +1.8005247086793406, +1.1552802279870638, +1.1859051012340358, +1.3556588879132287, +1.1509513210601550, +1.8025808568379706, +1.4625309619389637, +1.5844494155417042, +1.6575927625701961, +1.4506539381806243, +1.3077944057390276, +1.4359560238496201, +1.7136716964154761, +1.5681529446232643, +1.1081835802794959, +1.1712247846317778, +1.7618925256239713, +1.7205553961429758, +1.4071656472930023, +1.3394315862239785, +1.2178656439852453, +1.6774370078631620, +1.0866262271989995, +1.7322419402962952, +1.6552180797480218, +1.5569160068743231, +1.0455607640694353, +1.6374507345323244, +1.7579169292825527, +1.9798222547687843, +1.6222541891521935, +1.9254636576247339, +1.0815604110669133, +1.2675717626741743, +1.6067371091795986, +1.3540587310053942, +1.1317464036503586, +1.1825729406911552, +1.4764850805526595, +1.8986952325037576, +1.3868222021836969, +1.8001874662579516, +1.8066767798339280, +1.9862561694224694, +1.5032691644204443, +1.5071096656762668, +1.8833280818114333, +1.8543233339974901, +1.0189296222925721, +1.9830315075776175, +1.9708905724701138, +1.7699477454795498, +1.9347760661717455, +1.6360789030978737
403
404atad = getFFTR(getFFTF(data))
405atad = atad * 2 / size(atad)
406atad
407+1.6924669040082814, +1.4212899629908415, +1.5289351777930780, +1.9254087393699924, +1.6359652064212038, +1.4438836374210515, +1.2965092391128217, +1.1976481181008896, +1.0898623676229147, +1.9990751824439139, +1.1425045988053344, +1.4385999261077744, +1.7399921764900335, +1.2436957685604224, +1.7158451328639668, +1.9525733782716246, +1.6228113642850164, +1.4726272899892825, +1.8814698704468791, +1.6105665336426005, +1.3387339633497686, +1.0294328500118954, +1.3270452213758490, +1.5594497228949677, +1.9225224199879691, +1.0815063855446088, +1.3640128456434675, +1.3349959894582502, +1.6451121614078004, +1.8127995683184650, +1.6534758984829383, +1.8459554513985166, +1.7776169914163027, +1.3744414124425539, +1.9081194639008578, +1.4386860776910768, +1.4089450477077383, +1.8684780505438252, +1.6024669661254072, +1.9284318070441016, +1.7637377736372482, +1.5493387660852747, +1.5789121009488243, +1.8005247086793406, +1.1552802279870638, +1.1859051012340354, +1.3556588879132287, +1.1509513210601550, +1.8025808568379706, +1.4625309619389628, +1.5844494155417046, +1.6575927625701961, +1.4506539381806243, +1.3077944057390276, +1.4359560238496203, +1.7136716964154761, +1.5681529446232640, +1.1081835802794959, +1.1712247846317783, +1.7618925256239715, +1.7205553961429765, +1.4071656472930019, +1.3394315862239787, +1.2178656439852453, +1.6774370078631622, +1.0866262271989990, +1.7322419402962954, +1.6552180797480225, +1.5569160068743231, +1.0455607640694349, +1.6374507345323244, +1.7579169292825525, +1.9798222547687840, +1.6222541891521935, +1.9254636576247344, +1.0815604110669130, +1.2675717626741745, +1.6067371091795974, +1.3540587310053938, +1.1317464036503584, +1.1825729406911552, +1.4764850805526590, +1.8986952325037576, +1.3868222021836971, +1.8001874662579513, +1.8066767798339272, +1.9862561694224692, +1.5032691644204443, +1.5071096656762664, +1.8833280818114329, +1.8543233339974905, +1.0189296222925726, +1.9830315075776175, +1.9708905724701122, +1.7699477454795496, +1.9347760661717450, +1.6360789030978740, -0.55511151231257827E-15, +0.11102230246251565E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.0000000000000000, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.66613381477509392E-15, -0.22204460492503131E-15, +0.0000000000000000, +0.22204460492503131E-15, +0.22204460492503131E-15, -0.11102230246251565E-15, +0.0000000000000000, +0.44408920985006262E-15, +0.11102230246251565E-15, -0.33306690738754696E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.33306690738754696E-15, +0.44408920985006262E-15, +0.66613381477509392E-15, +0.44408920985006262E-15, +0.33306690738754696E-15, +0.11102230246251565E-15, +0.77715611723760958E-15, +0.33306690738754696E-15, +0.66613381477509392E-15, +0.77715611723760958E-15, +0.66613381477509392E-15, +0.77715611723760958E-15
408reltol = sqrt(epsilon(1._TKC))
409reltol
410+0.14901161193847656E-7
411isClose(data, atad(1:size(data)), reltol = reltol)
412T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
413call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
414
415lenData = getUnifRand(5, 100)
416lenData
417+7
418data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
419data
420+1.61296975624448931935027945054973876, +1.89678697703787819567758454817857386, +1.79231276875975411791476812727668891, +1.90611294699587958152778005232832996, +1.57548631689945250011861653068457419, +1.61408337495123086998061440121360907, +1.53369702946701171936086160797095388
421
422atad = getFFTR(getFFTF(data))
423atad = atad * 2 / size(atad)
424atad
425+1.61296975624448931935027945054973876, +1.89678697703787819567758454817857386, +1.79231276875975411791476812727668911, +1.90611294699587958152778005232832996, +1.57548631689945250011861653068457438, +1.61408337495123086998061440121360907, +1.53369702946701171936086160797095407, +0.00000000000000000000000000000000000
426reltol = sqrt(epsilon(1._TKC))
427reltol
428+0.138777878078144567552953958511352539E-16
429isClose(data, atad(1:size(data)), reltol = reltol)
430T, T, T, T, T, T, T
431call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
432
433lenData = getUnifRand(5, 100)
434lenData
435+20
436data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
437data
438(+1.64583588, +0.442099988), (+1.19418120, +0.953309774), (+1.71453226, +0.802878797), (+1.47023892, +0.524853647), (+1.16866934, +0.494140446), (+1.78855276, +0.795596600), (+1.85166311, +0.660601318), (+1.35751295, +0.395640612), (+1.92623162, +0.827904820), (+1.59811294, +0.199387312), (+1.91071939, +0.889311433), (+1.83557904, +0.593803704), (+1.19901001, +0.840983987E-1), (+1.12332320, +0.853210449), (+1.34120202, +0.555155873E-1), (+1.87851381, +0.547767580), (+1.84455585, +0.605300248), (+1.35288894, +0.555938244), (+1.36657667, +0.944019496), (+1.52479422, +0.283336580)
439
440atad = getFFTR(getFFTF(data))
441atad = atad / size(atad)
442atad
443(+1.64583588, +0.442099988), (+1.19418108, +0.953309834), (+1.71453202, +0.802878678), (+1.47023892, +0.524853587), (+1.16866922, +0.494140446), (+1.78855252, +0.795596600), (+1.85166299, +0.660601497), (+1.35751271, +0.395640671), (+1.92623162, +0.827904761), (+1.59811282, +0.199387252), (+1.91071928, +0.889311433), (+1.83557892, +0.593803644), (+1.19900990, +0.840983391E-1), (+1.12332308, +0.853210330), (+1.34120202, +0.555156171E-1), (+1.87851369, +0.547767580), (+1.84455585, +0.605300128), (+1.35288894, +0.555938184), (+1.36657655, +0.944019377), (+1.52479434, +0.283336580), (+0.119209290E-6, -0.745058060E-7), (+0.178813934E-6, +0.00000000), (+0.119209290E-6, -0.208616257E-6), (+0.238418579E-6, +0.00000000), (-0.596046448E-7, +0.00000000), (-0.178813934E-6, +0.596046448E-7), (+0.00000000, +0.298023224E-7), (+0.596046448E-7, +0.149011612E-6), (+0.596046448E-7, +0.00000000), (+0.119209290E-6, +0.119209290E-6), (+0.00000000, -0.894069672E-7), (+0.119209290E-6, +0.596046448E-7)
444reltol = sqrt(epsilon(1._TKC))
445reltol
446+0.345266977E-3
447isClose(data, atad(1:size(data)), reltol = reltol)
448T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
449call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
450
451lenData = getUnifRand(5, 100)
452lenData
453+37
454data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
455data
456(+1.3842827792686629, +0.16885681366156147), (+1.9385467522925586, +0.81519579998444780), (+1.0180576423070793, +0.71840054160055611), (+1.2061014175945082, +0.69998830984510796), (+1.5332081964331929, +0.89572124125235963), (+1.8537768133367258, +0.88714801053390624), (+1.4380521076077508, +0.21145848209481244), (+1.8998720453727400, +0.62274037667822013), (+1.4766748559876364, +0.13778373779623077), (+1.3334473714311668, +0.89074594115762384), (+1.8245504891197020, +0.14175058311412192E-1), (+1.7094724944067825, +0.52554383803986848), (+1.1525445118258690, +0.64887777023538429), (+1.2836673195386452, +0.71117539495232729), (+1.3167484561606062, +0.30553994325499145), (+1.0756891290465789, +0.60819703683570925), (+1.9870508729211953, +0.71897474588678056), (+1.9780753232956352, +0.58126379956186747), (+1.5616406672166252, +0.94823211187251666), (+1.0329500217100032, +0.66491284787027116), (+1.2139663509722380, +0.80099287060982005), (+1.2637878117328074, +0.92372458299180260), (+1.2944104199304127, +0.53978908781471691), (+1.1028813658168000, +0.36891704025986605), (+1.0878903566320788, +0.39783594669218436E-1), (+1.2126442158029573, +0.40888117969239235), (+1.6210885226393208, +0.87780174633737607), (+1.1473502701621840, +0.26979899975853494), (+1.0722436933845692, +0.64260697653854926), (+1.6995235410243028, +0.72510467457958061), (+1.0689586183662194, +0.33570542977442785), (+1.3287964993719856, +0.36774421843427052), (+1.1599963539181180, +0.35353622595191292), (+1.2653491897287776, +0.15438774178175985), (+1.7851514791429766, +0.83818661528217731), (+1.7190482897950328, +0.91723171799635006), (+1.4769710464764441, +0.63836096177472068)
457
458atad = getFFTR(getFFTF(data))
459atad = atad / size(atad)
460atad
461(+1.3842827792686629, +0.16885681366156147), (+1.9385467522925586, +0.81519579998444813), (+1.0180576423070793, +0.71840054160055622), (+1.2061014175945077, +0.69998830984510818), (+1.5332081964331929, +0.89572124125235986), (+1.8537768133367261, +0.88714801053390646), (+1.4380521076077506, +0.21145848209481272), (+1.8998720453727400, +0.62274037667822024), (+1.4766748559876366, +0.13778373779623090), (+1.3334473714311668, +0.89074594115762384), (+1.8245504891197011, +0.14175058311412553E-1), (+1.7094724944067821, +0.52554383803986826), (+1.1525445118258686, +0.64887777023538451), (+1.2836673195386450, +0.71117539495232762), (+1.3167484561606053, +0.30553994325499162), (+1.0756891290465789, +0.60819703683570903), (+1.9870508729211958, +0.71897474588678034), (+1.9780753232956352, +0.58126379956186736), (+1.5616406672166256, +0.94823211187251621), (+1.0329500217100032, +0.66491284787027083), (+1.2139663509722380, +0.80099287060982016), (+1.2637878117328074, +0.92372458299180249), (+1.2944104199304125, +0.53978908781471679), (+1.1028813658168002, +0.36891704025986605), (+1.0878903566320788, +0.39783594669218408E-1), (+1.2126442158029573, +0.40888117969239235), (+1.6210885226393206, +0.87780174633737551), (+1.1473502701621840, +0.26979899975853472), (+1.0722436933845689, +0.64260697653854904), (+1.6995235410243026, +0.72510467457958061), (+1.0689586183662192, +0.33570542977442752), (+1.3287964993719850, +0.36774421843427008), (+1.1599963539181182, +0.35353622595191292), (+1.2653491897287776, +0.15438774178175985), (+1.7851514791429768, +0.83818661528217675), (+1.7190482897950328, +0.91723171799634973), (+1.4769710464764443, +0.63836096177472079), (-0.22204460492503131E-15, -0.38857805861880479E-15), (+0.33306690738754696E-15, -0.18041124150158794E-15), (+0.0000000000000000, -0.49960036108132044E-15), (+0.0000000000000000, -0.83266726846886741E-16), (+0.33306690738754696E-15, -0.11102230246251565E-15), (+0.55511151231257827E-15, -0.19428902930940239E-15), (+0.44408920985006262E-15, -0.16653345369377348E-15), (+0.11102230246251565E-15, -0.11102230246251565E-15), (+0.22204460492503131E-15, -0.27755575615628914E-15), (+0.33306690738754696E-15, +0.11102230246251565E-15), (+0.22204460492503131E-15, -0.22204460492503131E-15), (+0.11102230246251565E-15, +0.22204460492503131E-15), (-0.33306690738754696E-15, +0.11102230246251565E-15), (+0.11102230246251565E-15, +0.33306690738754696E-15), (-0.11102230246251565E-15, -0.55511151231257827E-16), (+0.0000000000000000, +0.0000000000000000), (+0.0000000000000000, -0.11102230246251565E-15), (+0.0000000000000000, +0.33306690738754696E-15), (+0.22204460492503131E-15, -0.27755575615628914E-16), (+0.11102230246251565E-15, +0.86736173798840355E-16), (+0.55511151231257827E-15, +0.27755575615628914E-16), (+0.33306690738754696E-15, +0.49960036108132044E-15), (+0.33306690738754696E-15, +0.58286708792820718E-15), (+0.0000000000000000, +0.44408920985006262E-15), (+0.22204460492503131E-15, +0.38857805861880479E-15), (-0.22204460492503131E-15, +0.72164496600635175E-15), (+0.44408920985006262E-15, +0.61062266354383610E-15)
462reltol = sqrt(epsilon(1._TKC))
463reltol
464+0.14901161193847656E-7
465isClose(data, atad(1:size(data)), reltol = reltol)
466T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
467call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
468
469lenData = getUnifRand(5, 100)
470lenData
471+78
472data = 1._TKC + getUnifRand((0._TKC, 0._TKC), (1._TKC, 1._TKC), lenData)
473data
474(+1.13919016263922694798520009784372233, +0.121912461227410837532362924658947290), (+1.09958688013691815137067642844507782, +0.799583922521643995696986508244457970), (+1.47173804198576245617639878701750765, +0.735682122944873293982957979375099564), (+1.93178087207796994464695299365984747, +0.768560213034797849074169833059092500), (+1.80044050631588320235531135063811325, +0.252673866036168681793698726683519306), (+1.13448160519314016278165993853518725, +0.700818976637826062116987941496942669), (+1.39370904351623455420375057098191287, +0.289590211565576276374262856683171629), (+1.04999090548703784865300526906603784, +0.879464255850046299076023030664161057), (+1.47423409838876475879257349436815006, +0.937221420595098872210398816724067715), (+1.87292736389937020264734384479525418, +0.721154073422081337834539521166833163), (+1.73659246343841574242463628986806815, +0.902131987641607171881721525825417755), (+1.24572833829912323372630984639401858, +0.114290684029347893310095601768827273), (+1.16938426871004255930637265279359870, +0.379173002639133273671783064469030680), (+1.98475049114301266262980400547938891, +0.934466670966737835412247834732385867E-1), (+1.02234549462073163845908949511113142, +0.371172311390706222473883629277504697E-1), (+1.54060599523159988434140403603848994, +0.169401003419518522012253724516337361), (+1.63754334412517877455291936847655785, +0.150450079578506150652688736925906132), (+1.86396680690561996809376579850049526, +0.961257426562199639234500715810432931), (+1.67816342378788469895631435531707944, +0.332074554057251232697988491757708965), (+1.24994008703224138108968181934860436, +0.121178363938635307408645775200240924), (+1.71777298643926148726846265931175635, +0.339494077399804866733085813552069632), (+1.77654945340420965992765548665238896, +0.694189654294117510988470282168500527), (+1.57434621907064079690544473605614620, +0.477617680524879974106707902489112870), (+1.02571167790821690953874444936287736, +0.878146578545351115449870577056421085), (+1.92756713877108833575076207637848324, +0.153280191912915121684976972458126177), (+1.72932206712339839912757988687627726, +0.818038590829725946948874786056732575E-1), (+1.51530737709348115559610983438736239, +0.575494035824752889266517569122296593), (+1.47379039998751800988810126430578152, +0.400676466470213479309778993418932654E-1), (+1.70570042528402152141552499452617343, +0.356774996616453872194879807502878590), (+1.28875397083241554989775105937113853, +0.716096228463949700849511625962254462), (+1.53432187819484680916831800312088249, +0.817131882383245553310409043353582440), (+1.28079045477007512839768003852786745, +0.687142491262320968800760353653521628), (+1.37954207664440977422054506695087167, +0.212860352547320784492220428177524933E-2), (+1.00039016929032404355832058354997533, +0.346342189447853319747404424274197937), (+1.08071912897344810360098651399195547, +0.780885402740728846167622170510479083), (+1.25982620403898616802849567055837707, +0.779119402578007834309921615796549907), (+1.94752034528154743416371408101077044, +0.671690362756170185978694069263447865), (+1.22419366292022059508162253099996152, +0.759583055119318279006598353440624795E-1), (+1.80527069223762019784354584047666184, +0.908812870890234470864435333323499281), (+1.90158950869804168804431710782330196, +0.728301421745043207756757147779940252), (+1.80309767493985773024282614894686652, +0.481485807654871935823613347489303141), (+1.18875756533281235427758950647574969, +0.145719330222784423943578640887944547), (+1.41765343128242981089102954317775112, +0.313317240253811806686656570632749801), (+1.74034498785259868485286341661741528, +0.867421252984143107583468147092919693), (+1.64919504732670814997981626948156677, +0.391327556342030117392430510158896248), (+1.60323909580884814892267454279139821, +0.956278445473393117192149492447764028), (+1.67432169183931400263504823842515180, +0.636144939285115951918409708933873332), (+1.99577958270054338378216581999464317, +0.954410805954918013048060294148048404), (+1.60127639974823722176330319929751533, +0.463187630975825215296018992174162615), (+1.56255922827113011204732156555668378, +0.828814866213856357923198726974902550), (+1.30664538559681822316501588365050139, +0.954155945023285797632426602285463341), (+1.58397261499754079652702508298329652, +0.275892800461918760417816893059237599), (+1.11977339957806639347836877837979354, +0.311740235091667629270115180781008995), (+1.78546636857149961580715629602064940, +0.770358305879674699222069529328680052), (+1.29442882990377191121117907929335219, +0.172083052676939122478296354806233261), (+1.09876304279973798513462301642407289, +0.327086839915461113052060382099893201), (+1.64794841430431267058496848986519447, +0.358221767893812634102702059279847248), (+1.02934320260460546981862271256212825, +0.892017034217821369835566829722240727), (+1.60707799818886722213982046557079934, +0.435904547139793224767483426506210921), (+1.73023199472390051664441608915314462, +0.633896998521678076221344141115361372), (+1.20272161108253384809702281523701217, +0.895180405685030474244906680688504549E-1), (+1.78794487113190706551307637042880195, +0.276879542240326437118788573287873916), (+1.17427336707007749004581351632906492, +0.327733387455706901236613283790248262), (+1.62930608598080160791788786739276313, +0.441756123955879216115692572825410405), (+1.24021446752655319533136977273267922, +0.628874954614839089678667819018124445), (+1.91301455921867781804589833912444727, +0.505180241184660674520541286613752317E-2), (+1.65285343921116038505371971111384648, +0.391637801466196755485171467605005173), (+1.00454042987231942939450832642542891, +0.881630665857613151346246165835852689), (+1.97439171274972426645951712632094476, +0.652047007042644294830070255934480601), (+1.23678226622368033291366935936617088, +0.925499668283371493890377004285153122E-1), (+1.52978301468316318612516774756472076, +0.373172895003325490346257071112225967), (+1.27523377340121663809181593769543107, +0.516321262185678488582072788476428196), (+1.56522886613224530126935886812412724, +0.615948417365974790262539926399466183), (+1.70034898491758664095009661839121700, +0.808533167957013551950949435914382171), (+1.75483306136175679213509227325411815, +0.679940660812768730773907529913480391), (+1.91781331765776623624885902409594706, +0.173223764331429378578334136935471277), (+1.39293741556983535572267055821515836, +0.295325660264294982901726103136729517), (+1.75472349970588547432486063951398028, +0.813332277413231296720147411608571857)
475
476atad = getFFTR(getFFTF(data))
477atad = atad / size(atad)
478atad
479(+1.13919016263922694798520009784372233, +0.121912461227410837532362924658947242), (+1.09958688013691815137067642844507782, +0.799583922521643995696986508244457488), (+1.47173804198576245617639878701750804, +0.735682122944873293982957979375099467), (+1.93178087207796994464695299365984785, +0.768560213034797849074169833059092500), (+1.80044050631588320235531135063811325, +0.252673866036168681793698726683519209), (+1.13448160519314016278165993853518706, +0.700818976637826062116987941496942380), (+1.39370904351623455420375057098191268, +0.289590211565576276374262856683171677), (+1.04999090548703784865300526906603765, +0.879464255850046299076023030664160768), (+1.47423409838876475879257349436815006, +0.937221420595098872210398816724067908), (+1.87292736389937020264734384479525476, +0.721154073422081337834539521166832874), (+1.73659246343841574242463628986806834, +0.902131987641607171881721525825417948), (+1.24572833829912323372630984639401877, +0.114290684029347893310095601768827008), (+1.16938426871004255930637265279359870, +0.379173002639133273671783064469030728), (+1.98475049114301266262980400547938929, +0.934466670966737835412247834732380571E-1), (+1.02234549462073163845908949511113142, +0.371172311390706222473883629277503734E-1), (+1.54060599523159988434140403603849052, +0.169401003419518522012253724516337072), (+1.63754334412517877455291936847655824, +0.150450079578506150652688736925906060), (+1.86396680690561996809376579850049565, +0.961257426562199639234500715810432739), (+1.67816342378788469895631435531707982, +0.332074554057251232697988491757708965), (+1.24994008703224138108968181934860456, +0.121178363938635307408645775200240924), (+1.71777298643926148726846265931175655, +0.339494077399804866733085813552069391), (+1.77654945340420965992765548665238935, +0.694189654294117510988470282168500430), (+1.57434621907064079690544473605614620, +0.477617680524879974106707902489112774), (+1.02571167790821690953874444936287775, +0.878146578545351115449870577056421278), (+1.92756713877108833575076207637848324, +0.153280191912915121684976972458126081), (+1.72932206712339839912757988687627765, +0.818038590829725946948874786056731372E-1), (+1.51530737709348115559610983438736278, +0.575494035824752889266517569122296689), (+1.47379039998751800988810126430578190, +0.400676466470213479309778993418932413E-1), (+1.70570042528402152141552499452617363, +0.356774996616453872194879807502878494), (+1.28875397083241554989775105937113853, +0.716096228463949700849511625962254655), (+1.53432187819484680916831800312088268, +0.817131882383245553310409043353582537), (+1.28079045477007512839768003852786783, +0.687142491262320968800760353653521917), (+1.37954207664440977422054506695087186, +0.212860352547320784492220428177531328E-2), (+1.00039016929032404355832058354997572, +0.346342189447853319747404424274198226), (+1.08071912897344810360098651399195566, +0.780885402740728846167622170510479276), (+1.25982620403898616802849567055837746, +0.779119402578007834309921615796550292), (+1.94752034528154743416371408101077044, +0.671690362756170185978694069263447769), (+1.22419366292022059508162253099996171, +0.759583055119318279006598353440625517E-1), (+1.80527069223762019784354584047666184, +0.908812870890234470864435333323499185), (+1.90158950869804168804431710782330254, +0.728301421745043207756757147779940156), (+1.80309767493985773024282614894686671, +0.481485807654871935823613347489303430), (+1.18875756533281235427758950647575007, +0.145719330222784423943578640887944763), (+1.41765343128242981089102954317775131, +0.313317240253811806686656570632749946), (+1.74034498785259868485286341661741586, +0.867421252984143107583468147092920078), (+1.64919504732670814997981626948156697, +0.391327556342030117392430510158896200), (+1.60323909580884814892267454279139860, +0.956278445473393117192149492447764413), (+1.67432169183931400263504823842515199, +0.636144939285115951918409708933873525), (+1.99577958270054338378216581999464394, +0.954410805954918013048060294148048886), (+1.60127639974823722176330319929751553, +0.463187630975825215296018992174162711), (+1.56255922827113011204732156555668455, +0.828814866213856357923198726974903031), (+1.30664538559681822316501588365050158, +0.954155945023285797632426602285463437), (+1.58397261499754079652702508298329709, +0.275892800461918760417816893059237840), (+1.11977339957806639347836877837979373, +0.311740235091667629270115180781008995), (+1.78546636857149961580715629602064978, +0.770358305879674699222069529328680533), (+1.29442882990377191121117907929335258, +0.172083052676939122478296354806233213), (+1.09876304279973798513462301642407328, +0.327086839915461113052060382099893490), (+1.64794841430431267058496848986519467, +0.358221767893812634102702059279847440), (+1.02934320260460546981862271256212825, +0.892017034217821369835566829722241401), (+1.60707799818886722213982046557079972, +0.435904547139793224767483426506211307), (+1.73023199472390051664441608915314500, +0.633896998521678076221344141115361758), (+1.20272161108253384809702281523701256, +0.895180405685030474244906680688504428E-1), (+1.78794487113190706551307637042880233, +0.276879542240326437118788573287874301), (+1.17427336707007749004581351632906492, +0.327733387455706901236613283790248358), (+1.62930608598080160791788786739276371, +0.441756123955879216115692572825410694), (+1.24021446752655319533136977273267922, +0.628874954614839089678667819018124445), (+1.91301455921867781804589833912444766, +0.505180241184660674520541286613776391E-2), (+1.65285343921116038505371971111384687, +0.391637801466196755485171467605005173), (+1.00454042987231942939450832642542930, +0.881630665857613151346246165835853170), (+1.97439171274972426645951712632094495, +0.652047007042644294830070255934480505), (+1.23678226622368033291366935936617108, +0.925499668283371493890377004285153603E-1), (+1.52978301468316318612516774756472095, +0.373172895003325490346257071112225823), (+1.27523377340121663809181593769543146, +0.516321262185678488582072788476428292), (+1.56522886613224530126935886812412724, +0.615948417365974790262539926399466087), (+1.70034898491758664095009661839121720, +0.808533167957013551950949435914382749), (+1.75483306136175679213509227325411815, +0.679940660812768730773907529913480487), (+1.91781331765776623624885902409594764, +0.173223764331429378578334136935471445), (+1.39293741556983535572267055821515836, +0.295325660264294982901726103136729565), (+1.75472349970588547432486063951398066, +0.813332277413231296720147411608572435), (-0.962964972193617926527988971292463659E-34, -0.481482486096808963263994485646231830E-34), (-0.192592994438723585305597794258492732E-33, +0.192592994438723585305597794258492732E-33), (-0.962964972193617926527988971292463659E-34, -0.722223729145213444895991728469347744E-34), (-0.962964972193617926527988971292463659E-34, +0.288889491658085377958396691387739098E-33), (+0.962964972193617926527988971292463659E-34, -0.722223729145213444895991728469347744E-34), (+0.00000000000000000000000000000000000, +0.00000000000000000000000000000000000), (+0.288889491658085377958396691387739098E-33, +0.481482486096808963263994485646231830E-34), (-0.385185988877447170611195588516985464E-33, +0.288889491658085377958396691387739098E-33), (+0.00000000000000000000000000000000000, -0.168518870133883137142398069976181140E-33), (+0.962964972193617926527988971292463659E-34, +0.962964972193617926527988971292463659E-34), (+0.962964972193617926527988971292463659E-34, -0.180555932286303361223997932117336936E-33), (-0.481482486096808963263994485646231830E-33, +0.240741243048404481631997242823115915E-34), (+0.962964972193617926527988971292463659E-34, -0.144444745829042688979198345693869549E-33), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (-0.192592994438723585305597794258492732E-33, -0.722223729145213444895991728469347744E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.481482486096808963263994485646231830E-34), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.156105649789199781058248212143114226E-34), (-0.288889491658085377958396691387739098E-33, -0.722223729145213444895991728469347744E-34), (+0.288889491658085377958396691387739098E-33, -0.240741243048404481631997242823115915E-33), (-0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.288889491658085377958396691387739098E-33, +0.240741243048404481631997242823115915E-34), (+0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.481482486096808963263994485646231830E-33, -0.192592994438723585305597794258492732E-33), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.409260113182287618774395312799297055E-33), (+0.00000000000000000000000000000000000, -0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, -0.433334237487128066937595037081608647E-33), (-0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-34), (-0.674075480535532548569592279904724561E-33, -0.577778983316170755916793382775478196E-33), (-0.192592994438723585305597794258492732E-33, +0.00000000000000000000000000000000000), (-0.385185988877447170611195588516985464E-33, -0.192592994438723585305597794258492732E-33), (-0.288889491658085377958396691387739098E-33, -0.168518870133883137142398069976181140E-33), (-0.481482486096808963263994485646231830E-33, -0.337037740267766274284796139952362281E-33), (-0.962964972193617926527988971292463659E-34, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, -0.240741243048404481631997242823115915E-33), (-0.192592994438723585305597794258492732E-33, +0.240741243048404481631997242823115915E-34), (-0.770371977754894341222391177033970927E-33, -0.385185988877447170611195588516985464E-33), (-0.385185988877447170611195588516985464E-33, +0.962964972193617926527988971292463659E-34), (-0.385185988877447170611195588516985464E-33, -0.962964972193617926527988971292463659E-34), (+0.00000000000000000000000000000000000, -0.192592994438723585305597794258492732E-33), (-0.385185988877447170611195588516985464E-33, -0.529630734706489859590393934210855013E-33), (+0.962964972193617926527988971292463659E-34, -0.409260113182287618774395312799297055E-33), (-0.481482486096808963263994485646231830E-33, -0.529630734706489859590393934210855013E-33), (-0.288889491658085377958396691387739098E-33, -0.361111864572606722447995864234673872E-34), (-0.866668474974256133875190074163217293E-33, -0.746297853450053893059191452751659336E-33), (-0.192592994438723585305597794258492732E-33, -0.168518870133883137142398069976181140E-33), (-0.385185988877447170611195588516985464E-33, -0.553704859011330307753593658493166604E-33)
480reltol = sqrt(epsilon(1._TKC))
481reltol
482+0.138777878078144567552953958511352539E-16
483isClose(data, atad(1:size(data)), reltol = reltol)
484T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
485call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
486
487lenData = getUnifRand(5, 100)
488lenData
489+22
490data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
491data
492+1.18356431, +1.53248858, +1.00263500, +1.21030784, +1.28563356, +1.29695952, +1.78308654, +1.35803998, +1.78332639, +1.59086823, +1.36072373, +1.09259510, +1.77337885, +1.91334581, +1.49992812, +1.92478085, +1.12041068, +1.31697035, +1.87073135, +1.02137184, +1.20433092, +1.48547554
493
494atad = getFFTR(getFFTF(data))
495atad = atad * 2 / size(atad)
496atad
497+1.18356442, +1.53248870, +1.00263512, +1.21030796, +1.28563356, +1.29695952, +1.78308630, +1.35803986, +1.78332639, +1.59086800, +1.36072373, +1.09259510, +1.77337909, +1.91334558, +1.49992847, +1.92478049, +1.12041068, +1.31697047, +1.87073100, +1.02137196, +1.20433116, +1.48547542, +0.238418579E-6, +0.596046448E-7, -0.178813934E-6, +0.476837158E-6, -0.596046448E-7, +0.596046448E-7, +0.596046448E-7, +0.357627869E-6, +0.596046448E-7, +0.238418579E-6
498reltol = sqrt(epsilon(1._TKC))
499reltol
500+0.345266977E-3
501isClose(data, atad(1:size(data)), reltol = reltol)
502T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
503call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
504
505lenData = getUnifRand(5, 100)
506lenData
507+14
508data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
509data
510+1.5464431337320490, +1.4374536600686589, +1.3914369796257673, +1.9115818563464924, +1.1635218424736062, +1.5760693229673657, +1.7537368434687988, +1.5668351727841692, +1.1618106112731192, +1.8125629471712981, +1.2524271515210021, +1.0511114031475854, +1.1388732085534281, +1.0731624032041371
511
512atad = getFFTR(getFFTF(data))
513atad = atad * 2 / size(atad)
514atad
515+1.5464431337320490, +1.4374536600686589, +1.3914369796257673, +1.9115818563464926, +1.1635218424736062, +1.5760693229673657, +1.7537368434687983, +1.5668351727841690, +1.1618106112731192, +1.8125629471712981, +1.2524271515210024, +1.0511114031475854, +1.1388732085534281, +1.0731624032041376, +0.55511151231257827E-15, +0.88817841970012523E-15
516reltol = sqrt(epsilon(1._TKC))
517reltol
518+0.14901161193847656E-7
519isClose(data, atad(1:size(data)), reltol = reltol)
520T, T, T, T, T, T, T, T, T, T, T, T, T, T
521call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
522
523lenData = getUnifRand(5, 100)
524lenData
525+47
526data = 1._TKC + getUnifRand(0._TKC, 1._TKC, lenData)
527data
528+1.30352716612880765022273096112700389, +1.58379169367826609413866543482921291, +1.20291569868670976226832387953294173, +1.12210151175557056809184885204021465, +1.19322131734399476809091686588814417, +1.68018797488526062867070528001941762, +1.74894095513706713690297544453547915, +1.28808881482149896584454637635915578, +1.45640669075934246766161201770673195, +1.29736348586733347688131488782296762, +1.24598678512938458107576052046961204, +1.71145734292780685474077463526947449, +1.13894456501981644463775518161418391, +1.58132171773945885509968172734694397, +1.70332083743437762012873337468252519, +1.93152146364323413686796283508205209, +1.28999347718201139014327250031573450, +1.27959031642183631942491672305342989, +1.96554162848496283465769317138208478, +1.51357754116566727037062895460290314, +1.32263166895665013934120586641899497, +1.07546652501932591293736190956596598, +1.00810818710534901639296522656187427, +1.30627138855341429373504117090676341, +1.77937320677755406122534450787631930, +1.59346698751019932406917256513347851, +1.22398989059093700600651702967355468, +1.62019508769524976048616997872514766, +1.40410635468227197409814127962946071, +1.69936190354122470028400363532836239, +1.85624310734114576622896591795263629, +1.91314176895423776099560001875636444, +1.35219376526311765544659239281422854, +1.69808825896081795320184332301802175, +1.55830612094039459173458419354462179, +1.61690523070116476426617132074505052, +1.29253098477085607429153257995495621, +1.71650351867420722748408918562929299, +1.04591448146788842580602644115131369, +1.37666247384774337706003083457501109, +1.88003850213153539457834507630688216, +1.89904272853555046739384282553492455, +1.70417837045970037965426580009752644, +1.95193935138898337601355344377432731, +1.24825146046100825338081085251481807, +1.01585515938605069527324796311378862, +1.60162975346713118017359193763462701
529
530atad = getFFTR(getFFTF(data))
531atad = atad * 2 / size(atad)
532atad
533+1.30352716612880765022273096112700369, +1.58379169367826609413866543482921253, +1.20291569868670976226832387953294096, +1.12210151175557056809184885204021503, +1.19322131734399476809091686588814398, +1.68018797488526062867070528001941762, +1.74894095513706713690297544453547896, +1.28808881482149896584454637635915540, +1.45640669075934246766161201770673214, +1.29736348586733347688131488782296685, +1.24598678512938458107576052046961185, +1.71145734292780685474077463526947411, +1.13894456501981644463775518161418391, +1.58132171773945885509968172734694377, +1.70332083743437762012873337468252538, +1.93152146364323413686796283508205171, +1.28999347718201139014327250031573450, +1.27959031642183631942491672305342950, +1.96554162848496283465769317138208458, +1.51357754116566727037062895460290314, +1.32263166895665013934120586641899497, +1.07546652501932591293736190956596598, +1.00810818710534901639296522656187427, +1.30627138855341429373504117090676379, +1.77937320677755406122534450787631930, +1.59346698751019932406917256513347832, +1.22398989059093700600651702967355449, +1.62019508769524976048616997872514786, +1.40410635468227197409814127962946051, +1.69936190354122470028400363532836278, +1.85624310734114576622896591795263552, +1.91314176895423776099560001875636502, +1.35219376526311765544659239281422854, +1.69808825896081795320184332301802175, +1.55830612094039459173458419354462179, +1.61690523070116476426617132074505091, +1.29253098477085607429153257995495601, +1.71650351867420722748408918562929337, +1.04591448146788842580602644115131311, +1.37666247384774337706003083457501128, +1.88003850213153539457834507630688235, +1.89904272853555046739384282553492455, +1.70417837045970037965426580009752663, +1.95193935138898337601355344377432750, +1.24825146046100825338081085251481807, +1.01585515938605069527324796311378881, +1.60162975346713118017359193763462682, +0.288889491658085377958396691387739098E-33, +0.288889491658085377958396691387739098E-33, +0.00000000000000000000000000000000000, +0.192592994438723585305597794258492732E-33, +0.481482486096808963263994485646231830E-33, -0.288889491658085377958396691387739098E-33, -0.288889491658085377958396691387739098E-33, -0.481482486096808963263994485646231830E-33, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.962964972193617926527988971292463659E-34, -0.385185988877447170611195588516985464E-33, +0.481482486096808963263994485646231830E-33, +0.192592994438723585305597794258492732E-33, -0.192592994438723585305597794258492732E-33, -0.962964972193617926527988971292463659E-34, +0.192592994438723585305597794258492732E-33
534reltol = sqrt(epsilon(1._TKC))
535reltol
536+0.138777878078144567552953958511352539E-16
537isClose(data, atad(1:size(data)), reltol = reltol)
538T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T, T
539call setAsserted(all(isClose(data, atad(1:size(data)), reltol = reltol)))
540
541
Test:
test_pm_fftnr


Final Remarks


If you believe this algorithm or its documentation can be improved, we appreciate your contribution and help to edit this page's documentation and source file on GitHub.
For details on the naming abbreviations, see this page.
For details on the naming conventions, see this page.
This software is distributed under the MIT license with additional terms outlined below.

  1. If you use any parts or concepts from this library to any extent, you must acknowledge the usage by citing the relevant publications of the ParaMonte library.
  2. If you regenerate any parts/ideas from this library in a programming environment other than those currently supported by this ParaMonte library, you must also ask the end users to cite this original ParaMonte library.
Author:
Fatemeh Bagheri, Tuesday 11:34 PM, August 10, 2021, Dallas, TX

Definition at line 611 of file pm_fftnr.F90.


The documentation for this interface was generated from the following file: